Source position: dateutil.inc line 413
function DateTimeToJulianDate(
const AValue: TDateTime
):Double;