Вывести на форму время работы компьютера - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
