by Norman King (2 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sun 28th February 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Function to convert a date into Julian format.
' 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