Does anybody know where I can find a Julian to Gregorian date converter?
Try this VB 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
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
Usefull VBF Threads/Posts I Found . My flickr page . "I love being married. It's so great to find that one special person you want to annoy for the rest of your life." - Rita Rudner
Forum Rules