古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.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