Here are two functions tht I use for this purpose. The aDate converts
a Julian date to a regular data. jDate converts regular date to
Julian. I am only returning a 5 digit Julian date, but you can adjust
that to pull in the entire year if needed. HTH
'Gets Julian date from standard date
Function jDate(aDate As Date)
NormDateYear = Format(aDate, "yy")
NormDateDay = Format(Str(aDate - _
DateValue("1/1/" & Str(NormDateYear)) + 1), "000")
jDate = Format(NormDateYear & NormDateDay, "@")
End Function
'Gets standard date from Julian date
Function aDate(jDate As String)
NormDateYear = CInt(Mid(jDate, 1, 2))
If NormDateYear < 30 Then
NormDateYear = NormDateYear + 2000
Else
NormDateYear = NormDateYear + 1900
End If
NormDateDay = CInt(Mid(jDate, 3, 3))
aDate = DateSerial(NormDateYear, _
1, NormDateDay)
End Function