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.077 mal aufgerufen. |
sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||
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. |