VBScript Function to Convert an Integer to Binary String Representation

Given a Integer, we want to convert it to binary string. We can do this iteratively, by concatenating the modulus by two result and shifting the number 1 position to the right. We also need to check if it is negative number and appending a ‘-‘ sign before the result accordingly.

Implementing the ToBinaryString in VBScript is as follows. The zero is a special case. And to shift an integer one position to the right. We can use the Int(Num/2). The CInt() function will round up the values for example, CInt(3.5) is 4. Thus the Int() function in VBScript is equivalent to the Floor Function.

Function ToBinaryString(ByVal Num)
	Dim s, sign: sign = ""
	If Num < 0 Then 
		sign = "-"
		Num = -Num
	ElseIf Num = 0 Then
		ToBinaryString = "0"
		Exit Function
	End If
	While Num > 0
		s = Chr(48 + (Num Mod 2)) & s
		Num = Int(Num / 2)
	Wend 
	ToBinaryString = sign & s
End Function

The results are shown in the VBSEdit IDE – and you can verify a few integers from negative 15 to positive 15, respectively.

vbscript-convert-integer-to-binary-in-vbsedit

–EOF (The Ultimate Computing & Technology Blog) —