Julian Date to Access Dates

Oct 01
2011

A useful function from the microsoft site

Function CJulian2Date (JulDay As Integer, Optional YYYY)
    If IsMissing(YYYY) Then YYYY = Year(Date)
    If Not IsNumeric(YYYY) Or YYYY \ 1 <> YYYY Or YYYY < 100 Or YYYY  > 9999 Then Exit Function
    If JulDay > 0 And JulDay < 366 Or JulDay = 366 And  YYYY Mod 4 = 0 And YYYY Mod 100 <> 0 Or YYYY Mod 400 = 0 Then 
        CJulian2Date = Format(DateSerial(YYYY, 1, JulDay), "m/d/yyyy")
End Function

If you need some help on a project drop leave a comment on the post and I will reply.