Vb6 julian date string на сегодняшний день

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)