home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
ipo-101.zip
/
Samples.zip
/
DATE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1998-11-15
|
547b
|
25 lines
(*
** PURPOSE: Displays today's date
*)
program date(output);
var
year, month, day, day_of_week : integer;
function DayName(d : integer) : string;
begin
case d of
0: DayName := 'Sun';
1: DayName := 'Mon';
2: DayName := 'Tue';
3: DayName := 'Wed';
4: DayName := 'Thur';
5: DayName := 'Fri';
6: DayName := 'Sat';
end
end;
begin
GetDate(year, month, day, day_of_week);
writeln('Today is ', DayName(day_of_week), day:3, '/', month:2, '/', year:4);
end.