TGregorianDate.Copy

Source

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