Source position: amigados.pas line 2127
function CompareDates(
date1: PDateStamp;
date2: PDateStamp
):LongInt;