超时计算
好心的人帮忙：
请问：在DELPHI中如何实现时间上的超时计算，如要算借阅图书的时间超时多少天，要求自定义函数！
问题点数：0、回复次数：2Top
1 楼unsigned（僵哥(发站内消息，请附上链接或问题说明，否则不予回复)）回复于 2005-02-03 22:20:11 得分 0
function PassDays(StartTime,EndTime:TDateTime;rightDays:double):double;
var
TmpDays:Double;
begin
TmpDays:=EndTime-StartTime-rightdays;
if TmpDays<0 then
TmpDays:=0;
Result:=double(TmpDays);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
TmpDays:double;
begin
tmpdays:=passdays(now(),now()+6.5,3);
if tmpdays=0 then
ShowMessage('没有超期')
else
ShowMessage('超期'+currtostr(tmpdays)+'天');
end;Top
2 楼zhangwei1437（zhangwei）回复于 2005-02-05 12:44:08 得分 0
顶Top
