Function to convert a date into Julian format.
Function to convert a date into Julian format.
Rate Function to convert a date into Julian format.
(1(1 Vote))
' By Norman King, 07/31/96
'This function takes a date and converts it to the Julian format. 'Hence the jdate name.
If IsNull(cdate1) Then jdate = Right$(Format(Date, "yy"), 1) & Format$(Date, "y") Else jdate = Right$(Format(cdate1, "yy"), 1) &
Format$(cdate1, "y")
End Function
Function to convert a date into Julian format. Comments
No comments yet — be the first to post one!
Post a Comment