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.

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.

GetTime		Return the current time.
SetDate		Set system date.

GetDate

Declaration

Description

Errors

See also

Example