Source position: ovcdate.pas line 117
function IncDateTrunc(
Julian: TStDate;
Months: Integer;
Years: Integer
):TStDate;