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.101 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... |
||||||||||
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. |