Does anybody know where I can find a Julian to Gregorian date converter?
Printable View
Does anybody know where I can find a Julian to Gregorian date converter?
Try thisVB Code:
Private Sub ConvertDateToJulian(MyDate As String) Dim JYear As Integer Dim JDate As String JYear = Right(MyDate, 1) JDate = Right(MyDate, 1) + Format(DateDiff("y", "01-Jan-" & JYear, MyDate) + 1, "0##") MsgBox JDate End Sub Private Sub Command1_Click() ConvertDateToJulian Text1.Text End Sub
Convert Julian Dates to Standard Gregorian Format : http://www.vbcode.com/asp/showsn.asp?theID=1205