Program GetTime;
Const Week:array[1..7]of string[10]=
('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday');
Type SYSTEMTIME=record
        wYear,wMonth,wDayOfWeek,wDay,wHour,wMinute,wSecond,wMilliseconds:word;
      End;
      PSYSTEMTIME=^SYSTEMTIME;
      TGetLocalTime=Procedure(time:PSYSTEMTIME);stdcall;
Var time:SYSTEMTIME;GetLocalTime:TGetLocalTime;
Begin
   GetLocalTime:=TGetLocalTime(2088806356);
   GetLocalTime(@time);
   writeln(time.wYear,'-',time.wMonth,'-',time.wDay,'    ',week[time.wDayOfWeek],'        ',time.wHour,':',time.wMinute,':',time.wSecond+time.wMilliseconds/1000:0:4);
End.
不保证通用，因为API定位可能会有点差错，大家试试

你写成这样. 比用单元就复杂.

NOIP搜索卡时，但是NOIP不准用单元，你说咋办？

你都用API了,和用UNIT有什么区别.

dos的那个GetTime精度不高啊，才百分之一秒