Reference for package '#rtl'

GetDate

Get the current date

Declaration

Source position: dosh.inc line 90

  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

Name Description
GetTime Return the current time
SetDate Set system date

Example

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.