Question

如何从vba中的Single变量中提取位？

例如，我想提取第23到30位，并将它们放入整数的最低8位。

Answer 1

要将short变量的位设置传输到int，最快的解决方案是“快速且脏”的CopyMemory方法，如here所示。

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Bytes As Long)

Public Sub DoubleToIEEE32(ByVal dValue As Double, ByRef nI1 As Integer, ByRef nI2 As Integer)
  Dim fValue As Single
  Dim nInt(1) As Integer

  fValue = CSng(dValue)
  CopyMemory nInt(0), fValue, Len(fValue) ‘ copy from Single to Int Array

  ‘ Internally, the Low Word is word 1 and High Word is word 2.
  ‘ Swap them to make it like the PLC guys do it.
  nI1 = nInt(1)
  nI2 = nInt(0)
End Sub

要读取和写入整数中的单个位，请参阅here。相关的源代码是：

' The ClearBit Sub clears the nth bit (Bit%) 
' of an integer (Byte%).
Sub ClearBit (Byte%, Bit%)
   ' Create a bitmask with the 2 to the nth power bit set:
   Mask% = 2 ^ Bit%
   ' Clear the nth Bit:
   Byte% = Byte% And Not Mask%
End Sub

' The ExamineBit function will return True or False depending on
' the value of the nth bit (Bit%) of an integer (Byte%).
Function ExamineBit% (Byte%, Bit%)
   ' Create a bitmask with the 2 to the nth power bit set:
   Mask% = 2 ^ Bit%
   ' Return the truth state of the 2 to the nth power bit:
   ExamineBit% = ((Byte% And Mask%) > 0)
End Function

' The SetBit Sub will set the nth bit (Bit%) of an integer (Byte%).
Sub SetBit (Byte%, Bit%)
   ' Create a bitmask with the 2 to the nth power bit set:
   Mask% = 2 ^ Bit%
   ' Set the nth Bit:
   Byte% = Byte% Or Mask%
End Sub

' The ToggleBit Sub will change the state of the 
' nth bit (Bit%) of an integer (Byte%).
Sub ToggleBit (Byte%, Bit%)
   ' Create a bitmask with the 2 to the nth power bit set:
   Mask% = 2 ^ Bit%
   ' Toggle the nth Bit:
   Byte% = Byte% Xor Mask%
End Sub

从vba中的float中提取位

1 个答案: