Julian Date Problem

[Tom Rector]

Before I start let me assure you I have been through the postings and
have not found this answer.

WIN XP ACCESS XP (2002)

I am working on a database that requires the julian date. The format
for the date is YYDDD or 04027 for Jan 27th. I can get the value of
0427 by entering yyy in the field properties 'format' property in the
form. I need a way to show the zero between yy(2 digit year) and y
(day of the year) when the day is less than 100, as in 04027 (2004 Jan
27th). For simplicity I want to do this within the form, field
properties.


Thanks for your support as always the many times you have helped me in
the past
Thomas Rector

(e-mail address removed)

 

[Ken Snell]

One way:

JulianDate = Format(Year([DateField]), "00") & Format(DatePart("y",
[DateField]), "000")

 

[Graham Mandeno]

Ken, that would give "2004027", because the "00" format specifies a
*minimum* of two digits.

Try:

JulianDate = Format([DateField], "yy") _
& Format(DatePart("y",[DateField]), "000")

--
Good Luck!

Graham Mandeno [Access MVP]
Auckland, New Zealand

One way:

JulianDate = Format(Year([DateField]), "00") & Format(DatePart("y",
[DateField]), "000")

--
Ken Snell
<MS ACCESS MVP>

Before I start let me assure you I have been through the postings and
have not found this answer.

WIN XP ACCESS XP (2002)

I am working on a database that requires the julian date. The format
for the date is YYDDD or 04027 for Jan 27th. I can get the value of
0427 by entering yyy in the field properties 'format' property in the
form. I need a way to show the zero between yy(2 digit year) and y
(day of the year) when the day is less than 100, as in 04027 (2004 Jan
27th). For simplicity I want to do this within the form, field
properties.


Thanks for your support as always the many times you have helped me in
the past
Thomas Rector

(e-mail address removed)

 

[Ken Snell]

Quite right.....thanks for the catch, Graham.

--
Ken Snell
<MS ACCESS MVP>

Ken, that would give "2004027", because the "00" format specifies a
*minimum* of two digits.

Try:

JulianDate = Format([DateField], "yy") _
& Format(DatePart("y",[DateField]), "000")

--
Good Luck!

Graham Mandeno [Access MVP]
Auckland, New Zealand

One way:

JulianDate = Format(Year([DateField]), "00") & Format(DatePart("y",
[DateField]), "000")

--
Ken Snell
<MS ACCESS MVP>

Before I start let me assure you I have been through the postings and
have not found this answer.

WIN XP ACCESS XP (2002)

I am working on a database that requires the julian date. The format
for the date is YYDDD or 04027 for Jan 27th. I can get the value of
0427 by entering yyy in the field properties 'format' property in the
form. I need a way to show the zero between yy(2 digit year) and y
(day of the year) when the day is less than 100, as in 04027 (2004 Jan
27th). For simplicity I want to do this within the form, field
properties.


Thanks for your support as always the many times you have helped me in
the past
Thomas Rector

(e-mail address removed)

 

[StCyrM]

Hi Tom

Check this out...might be of help

Best regards
Maurice


http://scienceworld.wolfram.com/astronomy/JulianDate.html