settime(h,m,s,ps);
………………
gettime(h,m,s,ps);
其中h,m,s,ps分别为时，分，秒，百分秒，settime后的参数一般为（0，0，0，0），还有要说明部分加上“uses dos"

uses dos;{important}
{for date}
procedure knowdate;
var
  w1,w2,w3,w4:word;
begin
  getdate(w1,w2,w3,w4);
  writeln('year:',w1);
  writeln('month:',w2);
  writeln('date:',w3);
  writeln('unknown:',w4);
end;
{for exact time}
procedure gettimeone;{add these at the begin of the program}
var
  w1,w2,w3,w4:word;
begin
  gettime(w1,w2,w3,w4);
  writeln('hour:',w1);
  writeln('minute:',w2);
  writeln('second:',w3);
  writeln('percent second:',w4);
end;
procedure gettimetwo;{add these at the end of the program}
var
  w1,w2,w3,w4,w5:word;
begin
  gettime(w1,w2,w3,w4);
  writeln('hour:',w1);
  writeln('minute:',w2);
  writeln('second:',w3);
  writeln('percent second:',w4);
end;
{example}
begin
  knowdate;
  gettimeone;
  {......
  your program
  ......}
  gettimetwo;
  {make your program quicker!}
end.





uses sysutils,dos;
var k:longint;
procedure main;
begin
end;
begin
   k:=datetimetotimestamp(now).time; {first time}
   main;
   writeln('Time used:',datetimetotimestamp(now).time-k,'Milliseconds'); {last time}
   readln;
end.
{only for fp}