TGregorianDate.Equals

Source

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