Sekunden in Std. Min. Sek. umrechnen

    Hallo Leute habe folgendes Problem bei VBDN4C ich soll 90999 sekunden in Stunden, Minuten,Sekunden umrechnen bei meinem Code kommt aber 25Std.39Min 0Sek herraus.
    Es müssen aber 25 Std. 16 Min. 39Sek rauskommen.

    Weiß jetzt nicht ob ich hier meinen Code Posten darf.
    Wäre aber für jede hilfe/Tipps dankbar
    MFG Bettie

  • Hey Gast!
    Hast Du eine Frage, die Du gerne beantwortet haben möchtet? Klickt auf den folgenden Link und Du wirst die Antwort finden:

    Hier findest Du die Antworten

    Egal, ob es sich um eine Frage zu einem bestimmten Thema in eurem Studium oder um allgemeine Ratschläge handelt - wir haben die Antworten, die ihr sucht. Also zögert nicht und klickt auf den Link! Wir freuen uns darauf, euch zu helfen.

    Also ich habe gerade kein VB zur Hand, aber VBA mit Excel bringt das gleiche Ergebnis:

    Private Sub CommandButton1_Click()
    Dim Sekunden As Double
    Dim Minuten As Double
    Dim Stunden As Double
    Dim Tage As Double

    'Übergabe der Sekunden von 90999
    Sekunden = Range("A2")

    'Berechnung
    Minuten = Fix(Sekunden / 60)
    Sekunden = Sekunden - (Minuten * 60)
    Stunden = Fix(Minuten / 60)
    Minuten = Minuten - (Stunden * 60)

    'Übergabe an Zelle in Excel
    'std, min, sec, sind Zellbezeichnungen
    Range("std") = Stunden
    Range("min") = Minuten
    Range("sec") = Sekunden
    End Sub

    Ergebnis: [ATTACH=CONFIG]1025[/ATTACH]

    Gruß
    hape