Sekunden in Stunden und Minuten umrechnen und entsprechend darzustellen istfür viele ein Problem. Dieses Problem dürfte durch eine Antwort von Dieter im Fortgeschrittenen Forum jetzt aber behoben sein Man nehme also folgendeFunktion und setze sie in den Allgemeinen Teil der Form: Option Explicit Private Function GetTimeInterval(ByVal nSeks As Long) As String Dim h As Long, m As Long Dim sInterv As String h = nSeks \ 3600 nSeks = nSeks Mod 3600 m = nSeks \ 60 nSeks = nSeks Mod 60 sInterv = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(nSeks, "00") GetTimeInterval = sInterv End Function Um diese Funktion auszuprobieren, benötigen sie auf Ihrer Form eine TextBoxfür die Eingabe der Sekunden, ein Label für die Anzeige und einenCommandButton. Aufgerufen wird die Funktion dann so: Private Sub Command1_Click() Label1.Caption = GetTimeInterval(Text1.Text) End Sub Diese Seite wurde bereits 29.498 mal aufgerufen. |
Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. 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 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||
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. |