Anzeigen wie lange ein Programm schon läuft VB-Version:  VB5, VB6
	Views:  330

Sie möchten wissen, wie lange Ihr Programm läuft? Hierzu müssen Sie die Zeit des Starts ermitteln und dann die laufende Zeit hinzuaddieren. Das Ganze sieht dann so aus:

Starten Sie ein neues Projekt und setzen auf die Form ein Timer-Control sowie ein Label zur Anzeige der Zeit. Dann noch diesen Code:

' Variable, die die Zeit des Programmstarts beinhaltet
Public dProgStart As Date
 
Private Sub Form_Load()
  ' ermitteln der Zeit bei Programmstart
  dProgStart = CDate(CStr(Date) & " 00:00:00")
 
  ' Timer-Intervall auf 1000 ms = 1 Sekunde setzen
  Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
  Static lSekTimer As Long
  Dim n As Date
 
  ' sekundenweise hochzählen
  lSekTimer = lSekTimer + 1
 
  ' zu bereits vergangener Zeit die Sekunden hinzuzählen
  n = DateAdd("s", lSekTimer, dProgStart)
 
  ' auf dem Label aktuell die vergangene Zeit seit Programmstart anzeigen
  Label1.Caption = Format(n, "hh:mm:ss")
End Sub

Wenn Sie jetzt ihr Programm starten, wird Ihnen im Label die seit Programmstart vergangene Zeit angezeigt.