关于时间(100分)

请问怎样做时间的差？？？急

方法一：
VAR Ti,StopT:TTime;
begin
Ti:=now;
edit1.text:=timetostr(Ti);
stopT:=Ti - strtodatetime('10:00:00');
edit2.text:=timetostr(stopT);

方法二：
procedure TForm1.Button1Click(Sender: TObject);
var
T: TDateTime;
begin
T := StrToTime('11:00') - StrToTime('10:00');
ShowMessage(TimeToStr(T));
end;

Var S:String;
begin
S := StrToMyTime( FormatDatetime( 'h:m',
StrToTime(11:00)-StrToTime(10:00) ) );
end;

Function Tform1.StrToMyTime( s:string ):string;
var i,a,b:integer;
isB:bool;
begin
a:=0;
b:=0;
isB:=False;

for i:=1 to length(s) do
begin
if s=':' then
begin
isB:=True;
continue;
end;

if not isB then
a:=a*10+strtoint(s)
else
b:=b*10+strtoint(s);
end;
Result:=inttostr(a)+'小时'+inttostr(b)+'分钟';
end;

接受答案了.

D6提供了许多参数，键入date,按f1帮助
DaysBetween(const ANow, AThen: TDateTime): Integer;