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)
convert julian date to Date all version from VB
VBcoders
Dim a As Date = "01/01/" & Date.Now.Year
Dim b As Date = "01/01/" & Date.Now.Year
Dim i As Integer
Dim tmpDate As Date = "01/01/" & Date.Now.Year
Dim x As Integer
For i = 1 To 365
x = DateDiff(DateInterval.Day, a, tmpDate) + 1
If x = jDate Then
MsgBox(tmpDate.ToString)
Exit For
End If
tmpDate = DateAdd(DateInterval.Day, i, a)
Next
End Function