VB6朱利安日期字符串到日期对象

Question

Visual Basic 6中是否有一个函数可用于转换Julian Date String（1999年1月1日99001-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)