C Chris Savedge Nov 10, 2004 #1 How do you convert a Julian date (04001) to a traditional date (01/01/2004) Thanks, chris
M [MVP] S.Clark Nov 10, 2004 #2 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
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
