Sign in Join
FPDoc Onlineexperiment

GetDate procedure

In unit Dos

Get the current date.

Declaration

pascal
procedure GetDate(var year: Word; var month: Word; var mday: Word; 
 var wday: Word)

Description

GetDate returns the system's date. Year is a number in the range 1980..2099. mday is the day of the month, wday is the day of the week, starting with Sunday as day 0.

Errors

None.

See also

Example: ex2

pascal
Program Example2;
uses Dos;

{ Program to demonstrate the GetDate function. }

const
  DayStr:array[0..6] of string[3]=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
  MonthStr:array[1..12] of string[3]=('Jan','Feb','Mar','Apr','May','Jun',
                                      'Jul','Aug','Sep','Oct','Nov','Dec');
var
  Year,Month,Day,WDay : word;
begin
  GetDate(Year,Month,Day,WDay);
  WriteLn('Current date');
  WriteLn(DayStr[WDay],', ',Day,' ',MonthStr[Month],' ',Year,'.');
end.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.