Node: TimeStamp, Next: to, 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;

#### 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. The fields `DateValid`, `TimeValid`, `Year`, `Month`, `Day`, `Hour`, `Minute`, `Second` are required by Extended Pascal, the other ones are GNU Pascal extensions.

#### 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.