TGregorianInstant.FDate

Source

DateTime.Calendar.Gregorian.Instant.pas (33)