关于时间的计算问题。

Question

将当前时间赋予a,过一段时间后再将当前时间赋予b,然后计算a,b时间之差，计算出来的结果乘以单价c，便得到费用f,如何计算？
var
   a,b,c:currency;
begin
   a:=now();
  //n分钟后再将now赋予b
   b:=now();
  //n分钟后
end;

Answer 1

var
  t : TDateTime ;
  t := Now ;
  Sleep(2000) ;
  ShowMessage(IntToStr(StrToInt(FormatDateTime('ss',Now - t))*100)) ;

Answer 2

同意 wjlsmail(计算机质子) 写法。wjlsmail(计算机质子)，你怎么总比我快呀！气死我了！

Answer 3

李维的ado那本书中介绍了另外一种计算的方法，挺好的，可惜没有记住，明天记下来给你。

Answer 4

CityhunterID(城市猎人)   :)，抢你分:) 望多指教:)--------------------------------------------------- DecodeTime(Now,iH,iM,iS,iMs) ; //iMs 为毫秒

Answer 5

StrToInt(FormatDateTime('hh',Now - t))*1.5

Answer 6

用Sleep可不是个好招,还是用Timer吧!

Answer 7

精确时间差还可用API GetTickCount

Answer 8

ehom(？！)  : 你的对 :) ，不应该用 Sleep() [只是为了看到时间可以加减]

Answer 9

a : TDateTime ;
  time1.enable:=true;
  time1.interval:= 1000;
  b := Now ;
   ShowMessage(IntToStr(StrToInt(FormatDateTime('ss',b - a))*1.5)) ;