If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Julian Dates
Is there a way within an access database to change Julian Dates into regular
dates? Any help would be greatly appreciated |
#2
|
|||
|
|||
Julian Dates
On Wed, 15 Feb 2006 15:30:35 -0500, "Chris"
wrote: Is there a way within an access database to change Julian Dates into regular dates? Any help would be greatly appreciated Yes, but... The term "Julian Date" is used for a vast variety of different date formats (the Astronomical JD, Modified Astronomical JD, yyyyddd format, yyddd format, the bizarre military Julian Date with just one digit for the year, etc.) Which particular flavor of Julian Date did you have in mind? John W. Vinson[MVP] |
#3
|
|||
|
|||
Julian Dates
06046 being February 25, 2006.. first two digits being year next three
being the numbered day of the year "John Vinson" wrote in message ... On Wed, 15 Feb 2006 15:30:35 -0500, "Chris" wrote: Is there a way within an access database to change Julian Dates into regular dates? Any help would be greatly appreciated Yes, but... The term "Julian Date" is used for a vast variety of different date formats (the Astronomical JD, Modified Astronomical JD, yyyyddd format, yyddd format, the bizarre military Julian Date with just one digit for the year, etc.) Which particular flavor of Julian Date did you have in mind? John W. Vinson[MVP] |
#4
|
|||
|
|||
Julian Dates
"Chris" wrote in message
... 06046 being February 25, 2006.. first two digits being year next three being the numbered day of the year Is that a numeric field, or a text one? For numeric: Function ConvertJulian(JulianDate As Long) As Date ConvertJulian = DateSerial ( _ 2000 + (JulianDate \ 1000), _ 1, _ JulianDate Mod 1000) End Function For text: Function ConvertJulian(JulianDate As String) As Date ConvertJulian = DateSerial( _ 2000 + CLng(Left(JulianDate, 2)), _ 1, _ CLng(Mid(JulianDate, 3, 3))) End Function -- Doug Steele, Microsoft Access MVP http://I.Am/DougSteele (no private e-mails, please) |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Dates from Julian calendar | y_not | General Discussion | 1 | October 24th, 2005 06:36 PM |
VBA-Convert Julian Dates | PSKelligan | Powerpoint | 2 | April 29th, 2005 03:20 PM |
I want julian dates in my calendar | Bill53 | General Discussion | 2 | April 23rd, 2005 01:49 AM |
Change Start Dates without Changing Due Dates | Beth | General Discussion | 0 | August 19th, 2004 03:44 PM |
Julian Dates | Dave Ruhl | General Discussion | 6 | July 8th, 2004 03:24 AM |