I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
var time1,time2,time3:TDatetime;
h,m,s:integer;
begin
time3:=time1-time2;
decodetime(time3,h,m,s);
result:=h*3600+m*60+s;
end;
h,m,s:integer;
begin
time3:=time1-time2;
decodetime(time3,h,m,s);
result:=h*3600+m*60+s;
end;