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.