【求助】运行时间

jorgenhojmann

我在编一个VB程序
需要
读取计算机运行的时间
即从程序运行开始到结束的时间
  
不知道
应该用什么函数
和方法可以的到
  
请高手帮忙

SCIE

BeginTime = Now;
'程序代码.......
EndTime = Now;
  
ElapseTime = EndTime - BeginTime;

jorgenhojmann

好象不对
我设置开始时间和结束时间为全局变量
  
结果发现开始时间为0
结束时间为很大的一个数
  
结果明显不对
  
总的运行时间才几秒种
可时间显示的时间为好几万
  
是不是单位不对啊
  
我想要的是系统的时间

SCIE

Dim BeginTime as Variant,EndTime as variant
  
BeginTime = Now;  
'程序代码.......  
EndTime = Now;  
  
ElapseTime = DateDiff("s",BeginTime,EndTime); '以秒为单位的时间间隔，忽略掉了小数部分。
  
ElapseTime = EndTime-BeginTime为以天为单位的时间间隔，
(EndTime-BeginTime)*24*3600即可得到秒。