如何得到两个时间的时间差 (2000年8月29日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 59 行

如何得到两个时间的时间差 (2000年8月29日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:815  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

方法一：
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[i]=':' then
begin
isB:=True;
continue;
end;

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


--------------------------------------------------------------------------------