Binaryworld - Bin - Convert from decimal to binary ... [ VB.net -> Math ]

' convert from decimal to binary
' if you pass the Digits argument, the result is truncated to that number of
' digits
'
' you should always specify Digits if passing negative values

Function Bin(ByVal value As Long, Optional ByVal digits As Short = -1) As String
  ' convert to base-2
  Dim res As String = Convert.ToString(value, 2)

  ' truncate or extend the number
  If digits > 0 Then
    If digits < res.Length Then
      ' truncate the result
      res = res.Substring(res.Length - digits)
    ElseIf digits > res.Length Then
      ' we must extend the result to the left
      If value >= 0 Then
        ' extend with zeroes if positive
        res = res.PadLeft(digits, "0"c)
      Else
        ' extend with ones if negative
        res = res.PadLeft(digits, "1"c)
      End If
    End If
  End If
  ' return to caller
  Return res
End Function