虚开增值税专用发票:如何使用VB显示系统启动时间???

来源:百度文库 编辑:九乡新闻网 时间:2024/05/01 23:20:47
如何使用VB显示系统启动时间???
━━━━━━━━━━━━━━━━━━━━━━━━━━

注意是系统启动时间,也就是开机时的时间!!
不是不是运行了多少时间!!!!!!!!!!!!!!!!!!

最佳答案

现在的时间-系统运行的时间=系统启动的时间。

Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim a As Long, b As Long, r As String, s
r = Str(Time)
s = Split(r, ":")
b = (Val(s(0)) * 3600 + Val(s(1) * 60) + Val(s(2)))

a = GetTickCount / 1000
b = b - a
r = Trim(Str(b \ 3600))
b = b Mod 3600
r = r + ":" + Trim(Str(b \ 60))
b = b Mod 60
r = r + ":" + Trim(Str(b))
print "系统启动的时间:";r