Julian Dates 6

[DGC]

I have a julian date coming in from a flat file that I want to display as mm/dd/yyyy. Is there an easy way in VB5 to do this?

 

[Visitor]

I don't have VB5 but VB6. In VB6 it's possible to use the function cdate<br>
example:<br>
<br>
Private Sub Command1_Click()<br>
MsgBox CDate(36502)<br>
End Sub<br>
<br>
rgds<br>
<br>
Marc

 

[tusconpapa]

Does your year from the flat file show 2 characters or 4 <br>

 

[DGC]

My flat file shows a 2 digit year (99347). I did get this converted, but now need to convert the user's input from mm/dd/yyyy to julian to match against the file. Oh what a tangled web we weave! Anyway, should I try to do that using CDate?<br>
<br>
Here is my code to convert my julian date to the printable data:<br>
Sub Convert_date()<br>
Dim dtmNewDate As Date<br>
Dim strJulianDate As String<br>
strJulianDate = wrkRqmtDate<br>
dtmNewDate = DateSerial(Left$(strJulianDate, 2), 1, 1)<br>
dtmNewDate = DateAdd(&quot;d&quot;, Val(Right$(strJulianDate, 3)) - 1, dtmNewDate)<br>
wrkRqmtDate = &quot;&quot;<br>
wrkRqmtDate = Format(dtmNewDate, &quot;mm/dd/yyyy&quot<br>
End Sub

 

[DougP]

Here's way to covert normal date to Julian if anyones interested.<br>
Function NormalToJulian(Date1)<br>
Dim NormalDate As Date 'The serial date.<br>
Dim DateYear As String 'The year of the serial date.<br>
Dim JulianDay As String<br>
Dim JulianDate As String 'The converted Julian date value<br>
<br>
DateYear = Format(Date1, &quot;yyyy&quot 'Find the year number for NormalDate<br>
JulianDay = Format(Str(Date1 - DateValue(&quot;1/1/&quot; & Str(DateYear)) + 1), &quot;000&quot<br>
<br>
'Combine the year and day to get the value for JulianDate.<br>
JulianDate = DateYear & JulianDay<br>
<br>
NormalToJulian = JulianDate<br>
End Function<br>

 

[MikeLacey]

nice one doug<br>
-ml <p>Mike Lacey<br><a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a><br><a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a><br>

 

[DGC]

Thanks this has been very helpful. Thanks so much for taking the time to reply.

 

[Scoty]

Doug,

Bravo

scoty : &quot;Learn from others' mistakes. You could not live long enough to make them all yourself.&quot;
-- Hyman George Rickover (1900-86),