by Thatsanapong Wichaiwong (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 27th April 2005
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
calculate date to julian date
API Declarations
Dim strDate As Date = "01/01/" & Date.Now.Year
Dim strJuDate As String
strJuDate = Format(intTempDate + 1, "000") ' is julian date
'you want to add year
'strJuDate = Format(Date.Now.Year, "0000") & strJuDate