TGregorianDate.CompareTo

Source

DateTime.Calendar.Gregorian.Date.pas (63)