date - VB6 Julian 日期字符串到日期对象

Question

Visual Basic 6 中是否有可用于将儒略日期字符串（99001-1st of Jan 1999）转换为Date对象的函数？

我尝试过使用CDate()，但结果不如预期。

谢谢。

Answer 1

我认为以下方法可行，只需将您的朱利安日期放入 jd 变量中即可。

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