VB6 Юлианский Date Date to Date Object

Question

Есть ли в Visual Basic 6 функция, которую можно использовать для преобразования строки даты в юлианском стиле ( 99001-1 января 1999 ) в Date объект?

Я пытался использовать CDate(), но результаты не такие, как ожидалось.

спасибо.

Answer 1

Я думаю, что сработает следующее, просто поместите вашу юлианскую дату в переменную jd.

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