delphi 时间相减问题(计费系统)

Question

var 
  aa:string;
 
  
 aa:= timetostr(strtotime(timetostr(now()))-strtotime(begtime));aa 我作为一个花费的长。如果begtime时间是 23:00
  
即23:00开始计费,一旦Now()时间是00:00时，即aa出错了，，不是显示1:00了。。呵呵，不知道怎么问才清楚点，请各位见谅

Answer 1

加上日期 判断
aa:= timetostr(now-strtodatetime(begtime)); 应该可以了````

Answer 2

你可以有用一下delphi里DateUtils单元里的函数function SecondsBetween(const ANow, AThen: TDateTime): Int64;

Answer 3

aa:= timetostr(now-strtodatetime(begtime)); 可以解决当前问题了，谢谢 hangzhou_hammer但如dhp811() 说的dateutils  单元， dhp811()可不可以给个例子啊，，