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. Diese Seite wurde bereits 11.096 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |