Node:TimeStamp, Next:to, Previous:Time, Up:Reference
type
TimeStamp = packed record
DateValid,
TimeValid : Boolean;
Year : Integer;
Month : 1 .. 12;
Day : 1 .. 31;
DayOfWeek : 0 .. 6; { 0 means Sunday }
Hour : 0 .. 23;
Minute : 0 .. 59;
Second : 0 .. 61; { to allow for leap seconds }
MicroSecond: 0 .. 999999;
TimeZone : Integer; { in seconds east of UTC }
DST : Boolean;
TZName1,
TZName2 : String (32);
end;
The fields DateValid, TimeValid, Year,
Month, Day, Hour, Minute, Second
are required by Extended Pascal, the other ones are extensions.
The TimeStamp record holds all the information about a
particular time. You can get the current time with
GetTimeStamp and you can get the date or time in a printable
form using the Date and Time functions.
TimeStamp is an ISO 10206 Extended Pascal extension.
program TimeStampDemo;
var
t: TimeStamp;
begin
GetTimeStamp (t);
WriteLn ('DateValid: ', t.DateValid);
WriteLn ('TimeValid: ', t.TimeValid);
WriteLn ('Year: ', t.Year);
WriteLn ('Month: ', t.Month);
WriteLn ('Day: ', t.Day);
WriteLn ('DayOfWeek (0..6, 0=Sunday): ', t.DayOfWeek);
WriteLn ('Hour (0..23): ', t.Hour);
WriteLn ('Minute (0..59): ', t.Minute);
WriteLn ('Second (0..61): ', t.Second);
WriteLn ('MicroSecond (0..999999): ', t.MicroSecond);
WriteLn ('TimeZone (in seconds east of UTC): ', t.TimeZone);
WriteLn ('DST: ', t.DST);
WriteLn ('TZName1: ', t.TZName1);
WriteLn ('TZName2: ', t.TZName2);
WriteLn;
WriteLn ('Date is: ', Date (t));
WriteLn ('Time is: ', Time (t));
end.