PASCAL中有几个过程：
GETFTIME
SETFTIME
PACKTIME
UNPACKTIME
好像和系统时间有关系。

Dos Unit:
(在program后写uses dos;)
用过程gettime
说明：
gettime(var hour,min,sec,hs:word);
得到系统的小时、分钟、秒、百分之一秒。
settime(hour,min,sec,hs:word);
设置…………………………………………
getdate(var year,month,day,week:word);
得到系统日期。
setdate(year,month,day:word);
设置系统日期

需要包含 Dos 单元