Node:TimeStamp, Next:, Previous:Time, Up:Reference



TimeStamp

Synopsis


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.

Description

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.

Conforming to

TimeStamp is an ISO 10206 Extended Pascal extension.

Example


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.

See also

GetTimeStamp, Date, Time, Date And Time Routines.