Source position: CFDate.pas line 254
type CFGregorianUnits = record
years: SInt32;
months: SInt32;
days: SInt32;
hours: SInt32;
minutes: SInt32;
seconds: Float64;
end;