[Overview][Constants][Types][Procedures and functions][Variables] Reference for unit 'Dos' (#rtl)

GetDate

Get the current date

Declaration

Source position: dosh.inc line 95

procedure GetDate(

  var year: Word;

  var month: Word;

  var mday: Word;

  var wday: Word

);

Description

GetDatereturns the system's date. Yearis a number in the range 1980..2099.mdayis the day of the month, wdayis the day of the week, starting with Sunday as day 0.

Errors

None.

See also

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.