回 帖 发 新 帖 刷新版面

主题:求助:如何求出程序运行花费的时间

在计算程序运行花费的时间时,采用如下语句

  TDateTime DateTime1 = Time();

......各计算过程

  DateTime2 = Time();
  ShowMessage(TimeToStr(DateTime2-DateTime1));

一般情况下没有问题.

但如果计算时间很长,比如今天晚上9点开始计算,明天上午5点计算结束,
照理应该显示计算花费的时间为8个小时,但却显示花费了16个小时,
请教各位,这个问题该如何解决.


谢谢.



回复列表 (共1个回复)

沙发

你这样是不行的因为你没有将日期也计算进去,最好的办法是使用API函数
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
说明 
用于获取自windows启动以来经历的时间长度(毫秒) 

TDateTime DateTime1 = GetTickCount

......各计算过程

  DateTime2 = GetTickCount
  ShowMessage(TimeToStr(DateTime2-DateTime1));'这里最好将毫秒转换成小时

我来回复

您尚未登录,请登录后再回复。点此登录或注册