- 663 名前：デフォルトの名無しさん mailto:sage [2022/05/04(水) 01:56:07.05 ID:cCuNnoh+.net]
- VB6でDouble型をLarge_Integer型に変換するにはどうすればいいんでしょうか？
ググって以下のソースを見つけたのですが、オーバーフローします。
QuadPart使えないし。。。
Private Function cvtDblToLi(Val As Double) As LARGE_INTEGER
Dim foo As LARGE_INTEGER
foo.lowpart = Val And &HFFFFFFFF
foo.highpart = RightShift(Val, 16)
cvtDblToLi = foo
End Function
