Wie lange läuft Windows
[Windows 95/98/NT/2000/XP]

13.06.1998


Stellen Sie fest, seit wann Windows bereits läuft.

ERFORDERLICHE OBJEKTE
   1 Label (Label1)
   1 Timer (Timer1)

FORM-CODE

   Private Declare Function GetTickCount& Lib "Kernel32" ()
   Private Sub Timer1_Timer()
      MS = GetTickCount()
      SekGesamt = MS \ 1000
      Std = (SekGesamt \ 3600)
      Min = (SekGesamt - (Std * 3600)) \ 60
      Sek = (SekGesamt - (Std * 3600) - (Min * 60))
      t = Format(Std, "00") & ":" & Format(Min, "00") & _
         ":" & Format(Sek, "00")
      Label1.Caption = t
   End Sub
 

 

Download - 2 KB