converte date julian to greagorian in VBA

[Guest]

Dear friends, I need convert date Julian to gregorian and gregorian to Julian.
Help me.
Thanks

 

[JE McGimpsey]

One way:

Const cdCONVERT As Double = 2415018.5 'adjust for time zone
Dim dGregorian As Double
Dim dJulian As Double

dGregorian = Now
dJulian = dGregorian + cdCONVERT
MsgBox Format(dGregorian, "dd mmm yyyy") & vbNewLine & dJulian



Ref: http://aa.usno.navy.mil/data/docs/JulianDate.html

 

[NickHK]

A quick Google should give you some ideas:
http://www.freevbcode.com/ShowCode.asp?ID=1670
You can open the *.frm file your favourite text editor.

NickHK

 

[Guest]

Thank you for your response.
but I need "convert date julian to greagorian and gregorian to Julian" in
that exemple (Format):
Date Gregorian Date Jualian
DD/MM/YYYY YYYYJJJ

have a nice day.
thanks again

 

[JW]

Here are two functions tht I use for this purpose. The aDate converts
a Julian date to a regular data. jDate converts regular date to
Julian. I am only returning a 5 digit Julian date, but you can adjust
that to pull in the entire year if needed. HTH
'Gets Julian date from standard date
Function jDate(aDate As Date)
NormDateYear = Format(aDate, "yy")
NormDateDay = Format(Str(aDate - _
DateValue("1/1/" & Str(NormDateYear)) + 1), "000")
jDate = Format(NormDateYear & NormDateDay, "@")
End Function

'Gets standard date from Julian date
Function aDate(jDate As String)
NormDateYear = CInt(Mid(jDate, 1, 2))
If NormDateYear < 30 Then
NormDateYear = NormDateYear + 2000
Else
NormDateYear = NormDateYear + 1900
End If
NormDateDay = CInt(Mid(jDate, 3, 3))
aDate = DateSerial(NormDateYear, _
1, NormDateDay)
End Function