Source position: unix.pp line 119
function GregorianToJulian(
Year: LongInt;
Month: LongInt;
Day: LongInt
):LongInt;