Source position: ovcdate.pas line 120
procedure DateDiff(
Date1: TStDate;
Date2: TStDate;
var Days: Integer;
var Months: Integer;
var Years: Integer
);