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

在VB6中，可以使用以下方法将Double类型拆分为Long类型的loword和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

上述代码中，我们使用了API函数CopyMemory来实现内存拷贝操作。首先，我们声明了CopyMemory函数，然后定义了SplitDouble子过程。SplitDouble接受一个Double类型的值作为输入，并通过引用参数loword和hiword返回拆分后的结果。

在SplitDouble中，我们首先使用CopyMemory将前4个字节（32位）的数据从Double类型的值中拷贝到loword变量中，然后将后4个字节（32位）的数据拷贝到hiword变量中。这样就完成了将Double类型拆分为两个Long类型的操作。

使用示例：

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

输出结果：