VB6朱利安日期字符串到日期对象
-
12-10-2019 - |
题
Visual Basic 6中是否有一个函数可用于转换Julian Date String(1999年1月1日99001-1) Date
目的?
我尝试使用 CDate()
但是结果不符合预期。
谢谢。
解决方案
我认为以下内容会起作用,只需将您的Julian日期放入JD变量即可。
Dim dt as Date
Dim jd as Long
dt = DateSerial(1900 + Int(jd / 1000), 1, jd Mod 1000)
不隶属于 StackOverflow