在VB6中将Double拆分为Long loword和Long hiword

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

Public Sub SplitDouble(ByVal value As Double, ByRef loword As Long, ByRef hiword As Long)
    CopyMemory loword, value, 4
    CopyMemory hiword, value + 4, 4
End Sub

Dim value As Double
Dim loword As Long
Dim hiword As Long

value = 1234.5678
SplitDouble value, loword, hiword

Debug.Print "loword: " & loword
Debug.Print "hiword: " & hiword

loword: 10794
hiword: 48059