Julian Dates

[Chris]

Is there a way within an access database to change Julian Dates into regular
dates? Any help would be greatly appreciated

 

[John Vinson]

Is there a way within an access database to change Julian Dates into regular
dates? Any help would be greatly appreciated

Yes, but...

The term "Julian Date" is used for a vast variety of different date
formats (the Astronomical JD, Modified Astronomical JD, yyyyddd
format, yyddd format, the bizarre military Julian Date with just one
digit for the year, etc.)

Which particular flavor of Julian Date did you have in mind?

John W. Vinson[MVP]

 

[Chris]

06046 being February 25, 2006.. first two digits being year next three
being the numbered day of the year

 

[Douglas J. Steele]

06046 being February 25, 2006.. first two digits being year next three
being the numbered day of the year

Is that a numeric field, or a text one?

For numeric:

Function ConvertJulian(JulianDate As Long) As Date

ConvertJulian = DateSerial ( _
2000 + (JulianDate \ 1000), _
1, _
JulianDate Mod 1000)

End Function

For text:

Function ConvertJulian(JulianDate As String) As Date

ConvertJulian = DateSerial( _
2000 + CLng(Left(JulianDate, 2)), _
1, _
CLng(Mid(JulianDate, 3, 3)))

End Function