怎样对时间进行运算.
如: 在电话计费时,起始时间是,12:12:02, 结束时间是: 13:13:13,那么这 1:01:11
的时间,如果按每6秒收费6分的话,怎样计算收费多少呢?
初学者,请各位多多指教!!!!
问题点数：0、回复次数：1Top
1 楼hiflower（花）回复于 2003-09-03 08:46:29 得分 0
uses DateUtils
var
t1,t2:TTime;
Money:Currency;
t:Integer;
t1:=StrToTime('12:12:02');
t2:=StrToTime('13:13:13');
t:=SecondsBetween(t2,t1); //不足 1 秒的部分不计
Money:=(t div 6)*0.06; // 呵呵，不足 6 秒的部分就是你的损失了
// 这样吧
if t mod 6 <>0 then
Money:=Money+0.06; // 呵呵，不足 6 秒的部分也收 6 分，是不是有点黑啊？
Top
