J
JH
I have a column of 5 digit julian dates (ex 08066) that I need to convert to
a calender date. The julian date is formatted as text. I am using access
2003. I have used the following code but I get only blanks.
Function ConvertJulian(JulianDate As Long) If JulianDate > 40001 Then
ConvertJulian = DateSerial(1900 + Int(JulianDate / 1000), 1, JulianDate
Mod 1000)
Else
ConvertJulian = DateSerial(2000 + Int(JulianDate / 1000), 1, JulianDate
Mod 1000)
End If
End Function
I do not know VBA so I do not know what to fix. Any help or suggestions
would be much appreciated.
a calender date. The julian date is formatted as text. I am using access
2003. I have used the following code but I get only blanks.
Function ConvertJulian(JulianDate As Long) If JulianDate > 40001 Then
ConvertJulian = DateSerial(1900 + Int(JulianDate / 1000), 1, JulianDate
Mod 1000)
Else
ConvertJulian = DateSerial(2000 + Int(JulianDate / 1000), 1, JulianDate
Mod 1000)
End If
End Function
I do not know VBA so I do not know what to fix. Any help or suggestions
would be much appreciated.