[Overview][Constants][Types][Procedures and functions][Variables][Index] |
Get the current date
Source position: dosh.inc line 90
procedure GetDate( |
var year: Word; |
var month: Word; |
var mday: Word; |
var wday: Word |
); |
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.
None.
|
Return the current time |
|
|
Set system date |
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.