Getting Started with the Pascal tutorial, source
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
program Get_Time_And_Date; (* For TURBO Pascal 4.0 only *)
uses Dos;
var Year,Month,Day,Weekday : word;
Hour,Minute,Second,Hundredths : word;
begin
GetTime(Hour, Minute, Second, Hundredths);
GetDate(Year, Month, Day, Weekday);
Writeln('The date is ',Month:2,'/',Day:2,'/',Year);
Writeln('The time is ',Hour:2,':',Minute:2,':',Second:2);
end.
