Julian Date from Date

[Kevin Baker]

Hi Everyone,

Need to find code to convert short date (1/20/2003) into Julian Date 3020.
The "3" is last digit of year and 020 is the number of days since January
1st.

Thanks,
Kevin

[Bob Quintal]

"Kevin Baker" <shcbaker[removeme]@cox.net> wrote in
news:eiVrb.14714$oB3.13943@lakeread03:

Hi Everyone,

Need to find code to convert short date (1/20/2003) into
Julian Date 3020. The "3" is last digit of year and 020 is the
number of days since January 1st.

Thanks,
Kevin
If I typed correctly, use one or the other:

Jint = (Year(shortdate) mod 3)*1000 +
datediff("y",dateserial((year(shortdate),1,1),shor tdate)

Jtxt =right(cstr(Year(shortdate),1)) &
cstr(datediff("y",dateserial((year(shortdate),1,1) ,shortdate))

Watch the word wrap!

Bob Q

[Larry Linson]

"Kevin Baker" > wrote

Need to find code to convert short
date (1/20/2003) into Julian Date 3020.
The "3" is last digit of year and 020 is
the number of days since January
1st.

Copied from the Immediate Window:

? Right(Year(#1/20/2003#),1) &
Format(DateDiff("d",#1/1/2003#,#1/20/2003#)+1,"000")
3020

That is not what I remember the definition of Julian (computer) Date,
though. It was either YYDDD or YYYYDDDD, depending on the implementer, but
never YDDD. Are you planning on a very short lifespan for your application?
If it lasts 8 years, and many applications do, you won't be able to tell
1/20/2001 from 1/20/2011.

But, of course, you are unlikely to ever be called to account for a Y3K
problem or even a Y2.1K problem. <G>

Larry Linson
Microsoft Access MVP

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

And another country heard from....

Immediate window testing (watch out for line wrap):

? right$(format("1/20/2003","yy"),1) & format(format("1/20/2003", "y"
),"000")
3020

MGFoster:::mgf
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBP7CWA4echKqOuFEgEQJHFgCfQ6X5dQ2kJ+mIm07JLsDCAR HA/1AAoPSQ
6gKH3Fgv+bZl6uDS571mj8Kh
=g3cz
-----END PGP SIGNATURE-----

Kevin Baker wrote:

Hi Everyone,

Need to find code to convert short date (1/20/2003) into Julian Date 3020.
The "3" is last digit of year and 020 is the number of days since January
1st.

Thanks,
Kevin