午夜开始到现在经过的秒数的函数

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
计算机已经正常运行了多久的时间? FunCtion GetSec:double
Var
DT,DT0:TdateTime
Systime:TSystemTime;
begin
GetLocalTime(SysTime)
DT := SystemTimeToDateTime(SysTime)
with Systime do
begin
whour := 0;
wminute := 0;
wsecond := 0;
wMilliseconds := 0
end
DT0 := SystemTimeToDateTime(Systime)
Result:= (DT - DT0)*24*60*60
end
****************************
计算机已经正常运行了多久的时间?
 
后退
顶部