The Weird and The Wonderful

AspDotNetDev wrote:

If strBroswerVersion < 9 Then
' Do absolutely nothing. Really, nothing at all.

Public Shared Function GetBitNr(ByVal TestInteger As Integer, ByVal Nr As Integer) As Integer
   If TestInteger < 0 Then
      If Nr = 32 Then
         Return 1
      End If

      TestInteger = TestInteger + CInt(&H80000000)
   End If

   Dim i As Long = 30
   Dim str As String = ""
   Do While (i > -1)
      If 2 ^ i <= TestInteger Then
         str = str & "1"
         TestInteger = CInt(Math.Round(TestInteger - 2 ^ i))
      ElseIf Left(str, 1) = "1" Then
         str = str & "0"
      End If

      i = i - 1
   Loop

   Dim result As Integer
   If Len(str) >= Nr Then
      result = CInt(Mid(str, Len(str) - Nr + 1, 1))
   Else
      result = 0
   End If

   Return CInt(result)
End Function

Richard Deeming wrote:

CInt(&H80000000)

Return If(TestInteger And (2 ^ (Nr - 1)) = 0, 0, 1)

'If GetBitNr(someValue, 7) = 1 Then
If (someValue And 64) <> 0 Then