VB6 Julian Date String to Dateオブジェクト

Question

Visual Basic 6には、ジュリアンの日付文字列を変換するために使用できる関数はありますか？1999年1月の99001-1- 1月）aに Date 物体？

使用してみました CDate() しかし、結果は予想通りではありません。

ありがとう。

Answer 1

以下は機能すると思います。ジュリアンの日付をJD変数内に入れてください。

Dim dt as Date 
Dim jd as Long
dt = DateSerial(1900 + Int(jd / 1000), 1, jd Mod 1000)