julian date in ms access 2

[tymer]

I need to know a Julian date format but not with the standard Dec 30 1899 offset. Example: I need Jan 1, 2003 to be formated 03001 and Dec 30, 2003 to be 03365, etc. Any help, greatly appreciated.

 

[scriverb]

Well this is not elegant but it will get you what you asked for:
Format(CLng(Right(CStr(DatePart("yyyy", date)), 2) & Format(CStr(DatePart("d", date)), "000&quot), "00000&quot

I performed a number of functions here to strip and cancatenate together the 2-digit year with the 3-digit day of the year. I converted them to a Long Integer and formated it so that the leading zero is displayed. It should still be an number even though the Format function was applied.

Let me know if this works for you. Someone else may have a slick way of doing this in a shorter fashion. Suggestions welcome here.


Bob Scriver

Nobody believes the official spokesman... but everybody trusts an unidentified source.
Author, Bagdad Bob???

 

[RickSpr]

This is a little shorter:
Format(theDate,"yy&quot & Format(DatePart("y", theDate), "000&quot

If you're looking for something to put into a Format property on a bound field, I don't there is one. You'll have to make it an unbound text box with its ControlSource set to this expression.

Rick Sprague
Want the best answers? See faq181-2886
To write a program from scratch, first create the universe. - Paraphrased from Albert Einstein

 

[SgtJarrow]

Bob redirected a poster to this thread from thread702-588211...Just wanted to say thanks for the short single solution....

****************************
Only two things are infinite, the universe and human stupidity,
and I'm not sure about the former. (Albert Einstein)

Robert L. Johnson III
MCSA, CNA, MCP, Network+, A+
w: robert.l.johnson.iii@citigroup.com
h: wildmage@tampabay.rr.com

 

[scriverb]

Although, RickSpr's answer is a better one I just wanted to post a correction to a typo in my solution.

Format(CLng(Right(CStr(DatePart("yyyy", date)), 2) & Format(CStr(DatePart("y", date)), "000&quot), "00000&quot

Didn't want the post to be incorrect.



Bob Scriver
Want the best answers? See FAQ181-2886
Nobody believes the official spokesman... but everybody trusts an unidentified source.
Author, Bagdad Bob???