なるほど。通貨型は64ビットなのか。

1601/01/01から今までの経過時間を求めたいです。
単位は100ナノセコンド。
FTime.dwHighDateTimeに上位32ビット、
FTime.dwLowDateTime 下位32ビットを代入します


Dim cDate As Currency

cDate = DateDiff("s", "1601/01/01", Date) * 1000

FTime.dwHighDateTime = CLng(cDate / 214748.3647)
FTime.dwLowDateTime = CLng(cDate Mod 214748.3647)
こんな感じにしてみたけど、最後の行でオーバーフローになります。