Вывести на форму время работы компьютера - VB
Формулировка задачи:
После нажатия на форме появляется время работы компьютера
Решение задачи: «Вывести на форму время работы компьютера»
textual
Листинг программы
Private Declare Function GetTickCount& Lib "kernel32" ()
Private Sub Command1_Click()
ret& = GetTickCount&
s = ret& / 1000
m = s \ 60
h = m \ 60
m = m Mod 60
s = s Mod 60
Print Right("00" & h, 2) & ":" & Right("00" & m, 2) & ":" & Right("00" & s, 2) & vbCrLf
End Sub