Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub cGetTickCount()
Dim MilloSec#, Days#, Hours#, Min#, Sec#
Dim Msg$
MilloSec = GetTickCount()
Sec = MilloSec \ 1000
Days = Sec \ (24& * 3600&)
If Days > 0 Then Sec = Sec - (24 * 3600 * Days)
Hours = Sec \ 3600
If Hours > 0 Then Sec = Sec - (3600 * Hours)
Min = Sec \ 60
Sec = Sec Mod 60
Msg = "С момента загрузки Windows прошло" & vbCrLf & vbCrLf
Msg = Msg & Days & " Дня(Дней), " & Hours & " Час(ов), " & Min & " Мин, " & Sec & " Сек."
MsgBox Msg, vbOKOnly + vbInformation
End Sub |
|