VB6 Julian Date String to Date Object

Is there a function in Visual Basic 6 that can be used to convert a julian date string (99001-1st of Jan 1999) to a Date objec开发者_StackOverflow中文版t?

I have tried using CDate() but the results are not as expected.

THanks.

I think the following would work, just put your julian date inside the jd variable.

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