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