RosettaCodeData/Task/System-time/Pascal/system-time-1.pas

type
	timeStamp = packed record
			dateValid: Boolean;
			year: integer;
			month: 1..12;
			day: 1..31;
			timeValid: Boolean;
			hour: 0..23;
			minute: 0..59;
			second: 0..59;
		end;