VBA位轉換器

Question

我想知道如何在Excel VBA中使用bitconverter方法。 我想使用BitConverter.ToInt32將每個放置在32位整數中的差分單元中的4個字節轉換。

有人可以幫我一個在VBA中使用的例子嗎？我認爲我在語法上掙扎。

由於

Answer 1

• 隨着CopyMemory：

  Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long) 
  
  Public Function BytesToLong(b() As Byte) As Long 
      CopyMemory BytesToLong, b(LBound(b)), 4 
  End Function 
  

• 無CopyMemory 1：

  Private Type thebytes 
      b(1 To 4) As Byte 
  End Type 
  
  Private Type thelong 
      l As Long 
  End Type 
  
  
  Public Function BytesToLong(b() As Byte) As Long 
      Dim tb As thebytes, tl As thelong 
      Dim lb As Long 
  
      lb = LBound(b) 
      tb.b(1) = b(lb) 
      tb.b(2) = b(lb + 1) 
      tb.b(3) = b(lb + 2) 
      tb.b(4) = b(lb + 3) 
  
      LSet tl = tb 
  
      BytesToLong = tl.l 
  End Function 
  

• 沒有CopyMemory 2：

  Public Function BytesToLong(b() As Byte) As Long 
      Dim lb As Long 
      lb = LBound(b) 
  
      If (b(lb + 3) And &H80) = &H80 Then 
      BytesToLong = (b(lb) + b(lb + 1) * &H100& + b(lb + 2) * &H10000 + (b(lb + 3) And Not &H80) * &H1000000) Or &H80000000 
      Else 
      BytesToLong = b(lb) + b(lb + 1) * &H100& + b(lb + 2) * &H10000 + b(lb + 3) * &H1000000 
      End If 
  
  End Function