|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Exibir o tempo de utilização do windows
|
 |
|
|
|
Postada em 5/12/2003 por Josefh Hennyere
jhennyere@yahoo.com.br
Crie um formulário com um Botão de comando denominando-o de "Command1" e copie o código no formulário.
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
Dim Count As Long
Dim Days As Integer
Dim Hours As Double
Dim Minutes As Double
Dim Seconds As Double
Dim Message As String
Count = GetTickCount()
Count = Count \ 1000
Days = Count \ (24& * 3600&)
If Days > 0 Then Count = Count - (24& * 3600& * Days)
Hours = Count \ 3600&
If Hours > 0 Then Count = Count - (3600& * Hours)
Minutes = Count \ 60
Seconds = Count Mod 60
Message = "O Windows está ligado à " & Days & " dia(s), " & Hours & " hora(s), " & Minutes
Message = Message & " Minuto(s) e " & Seconds
Message = Message & " Segundo(s) !"
MsgBox Message
End Sub
Josefh Hennyere
|
|
|
|
|
