That's what I use:;
; -- Function ConvJulianDate
; Convert julian date/time (also serial) to standard format.
; Arguments [Typ]:
; Val = Julian date/time [REAL]
; Mde = Conversion mode, eg. "MO/DD/YYYY H:MMam/pm" [STR] *)
; Return [Typ]:
; > Formatted date/time [STR]
; Notes:
; *) Details for mode see Diesel, edtime
;
(defun ConvJulianDate (Val Mde / TmpVal)
(setq TmpVal (if (minusp (- Val 2415019.0)) (+ Val 2415019.0) Val))
(menucmd (strcat "M=$(edtime," (rtos TmpVal) "," Mde ")"))
)
Cheers