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