自己对DELPHI学习的一点体会

				如何得到两个时间的时间差 (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;
				 
				 
				
				
				--------------------------------------------------------------------------------