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