第一个答出的马上给分

Question

一个返回系统运行多长时间的api函数，好像叫get***什么的？
谁把它声明复制一个给我。因为我的vb没有api检视器。

Answer 1

弱弱的回答一下,time不是也可以得出秒数吗

Answer 2

PrivateDeclareFunctionGetTickCountLib"kernel32"()AsLong
PrivateSubTimer1_Timer()
DimhourAsInteger
DimminuteAsInteger
DimsecondAsInteger
hour=GetTickCount\1000\60\60
Label1.Caption=Str(hour)+"小时"
minute=(GetTickCount-hour*60*60*1000)\1000\60
Label2.Caption=Str(minute)+"分钟"
second=(GetTickCount-Val(Label1.Caption)*60*60*1000-Val(Label2.Caption)*60*1000)\1000
Label3.Caption=Str(second)+"秒钟"
EndSub