• Home
 · 
• Miscellaneous
 · 
• convert julian date to Date all version from VB

convert julian date to Date all version from VB

convert julian date to Date all version from VB

Rate convert julian date to Date all version from VB

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

        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