Convert Date to Julian System Date 3

[JBats]

How to convert date into Julian System Date in VB. Tnx in advance.

jbats

 

[DrJavaJoe]

Public Function GetDateFromJulian(lngJDate As Long) As Date
GetDateFromJulian = CDate(lngJDate)
End Function

 

[JBats]

Thanks a lot DrJavaJoe for the reply. I want to convert this date 08/18/2003 into a julian date format of "YYYYDDD". Thanks again.

jbats

 

[jobyk]

Julian Date format is to store the date in 5 digits. First 2 digits represents the year part and next 3 part the day part. For example 30-jan-2003 will be represented as 03030 because 30 th jan is 30th day of the year. 01-Jun-2003 will be represented as 03152. 01-June is 152 th day of th year. and 31-dec-2003 will be represented as 03365.
To convert a date into Julian, calculate the number of days between 1st jan and the date by datediff function. then add the year part and store it.

Regards

 

[CCLINT]

>Julian Date format is to store the date in 5 digits

Not quite.

Anyways, JBats this isn't a julian date either.
But, to do what you want to do, just use:
Format$("08/18/2003", "yyyyy&quot

 

[JBats]

thank you guys...


jbats

 

[johnwm]

* for CCLINT - I learn someting new every day!

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[poltergeist]

This is always the same like CCLINT but give bake the YYDDD format

Mid(Format(Date, "YYYYY&quot, 3, 2) & Format(Mid(Format(Date, "YYYYY&quot, 5), "000&quot

peterguhl@yahoo.de

 

[CCLINT]

Or, Just use:

?Format$("08/18/2003", "yyy&quot

 

[CCLINT]

And, thank you too johnwm!

 

[CCLINT]

Sorry, mis-understood what you wanted:

?Format$(Format$("01/18/2003", "yy&quot,"00&quot & Format$(Format$("01/18/2003", "y&quot,"000&quot

 

[poltergeist]

That's better OK - Star and more stars


peterguhl@yahoo.de

 

[CCLINT]

Here is a * for you poltergeist for reminding me it needs to not only be a Year and the Day Of The Year, but always 5/7 digits - good job!

(Don't ask why I formated the Year part twice in the previous example - getting late again
or )

YYDDD
Format$(Date, "yy&quot & Format$(Format$(Date, "y&quot,"000&quot

YYYYDDD
Format$(Date, "yyyy&quot & Format$(Format$(Date, "y&quot,"000&quot

DatePart() works also for this

 

[poltergeist]

This is for CCLINT
because he is the best

MsgBox Format(Date, "YY" & "Y&quot

peterguhl@yahoo.de

 

[CCLINT]

However, try this (and one of my previous suggestions) with something like a date in January...

For the first of January you'll get only 031 (YYD)

It was my mis-understanding from the beginning.

 

[poltergeist]

You'ar right then we have to mi our code to

dim dat1 as date
dat1 = "01/01/03"
msgbox Format(dat1, "YY&quot & Format(Format(dat1, "Y&quot, "000&quot

peterguhl@yahoo.de

 

[billybobk]

I have to laugh. You guys are funny. CClint is a brain, ain't he? Jeez. I'm printing this one.

--Bill
One may not reach the dawn save by the path of the night
--Kahlil Gibran

 

[JBats]

you guys are great! i'm thankful that you were there sharing knowledge on me. I learn good techniques from all of you. Thank you so much...

jbats