VB6 儒略日期字符串到日期对象

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)