Unit 'Dos' Package
[Overview][Constants][Types][Procedures and functions][Variables][Index] [#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

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.

Documentation generated on: Dec 04 2024