The following VB code will give you a function that you can use the same as the one's already built into Excel. Open the VB Editor with Alt+F11 and add a new module (on the Insert menu). Paste in the code, and then close the editor. To use it, if you have a Julian date in cell A1 then in any other cell enter the formula "=ConvertJulian(A1)" without the quotes. This will give you an Excel date serial number. Simply format the cell to whatever date format you wish. Also note that you will find the new function in the Function Wizard list under Custom or possibly Date.
Copy & Paste this:-
Option Explicit
Function ConvertJulian(JulianDate)
'convert JDE style Julian dates to Excel date serial number.
'Format the cell as date.
Dim YearNo As Integer, DaysNo As Integer, DaysInYear As Integer
YearNo = Left(JulianDate, Len(JulianDate) - 3) + 1900
DaysNo = Right(JulianDate, 3)
If YearNo Mod 4 = 0 Then
DaysInYear = 366
Else
DaysInYear = 365
End If
If DaysNo <= DaysInYear And DaysNo >= 1 Then
ConvertJulian = DateSerial(YearNo, 1, 1) + DaysNo - 1
Else: ConvertJulian = "Invalid Julian Date"
End If
End Function
World A7.3 cum 6