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

Question

Visual Basic 6中是否有一个函数可用于将julian日期字符串（ 99001-1st of 1999年1月）转换为Date对象？

我尝试过使用CDate()但结果并不像预期的那样。

感谢。

Answer 1

我认为以下方法可行，只需将julian日期放在jd变量中。

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