Jullian Date

C

Chris Savedge

How do you convert a Julian date (04001) to a traditional date (01/01/2004)

Thanks,
chris
 
M

[MVP] S.Clark

strJD="04001"
intYear = cint(20 & Left$(strJD, 2))
intJDDays = cint(Mid$(strJD, 3))
dtmDate = DateAdd("d", intJDDays, DateSerial(intYear-1, 12, 31))

....or something like that.
--
Steve Clark, Access MVP
FMS, Inc.
www.fmsinc.com/consulting
How do you convert a Julian date (04001) to a traditional date (01/01/2004)

Thanks,
chris
 
Top