Вывести на форму время работы компьютера - VB

Формулировка задачи:

После нажатия на форме появляется время работы компьютера

Код к задаче: «Вывести на форму время работы компьютера - 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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 3.909 из 5


СДЕЛАЙТЕ РЕПОСТ