Source position: ovcdate.pas line 141
function AstJulianDatePrim(
Year: Integer;
Month: Integer;
Date: Integer;
UT: TStTime
):Double;