MyJulianDate = "01075"
MyYr = Str(Left(MyJulianDate, 2))
MyDay = Right(MyJulianDate, 3)
MyDate = DateAdd("d", MyDay - 1, "01/01/" & (MyYr))
? MyDate
3/16/01
Although it is somewhat curious. You Julian Dates are Zero Based? That's why the " - 1" is in the date artithmatic.
MichaelRed
redmsp@erols.com
There is never time to do it right but there is always time to do it over