Programm zum konvertieren von Zeit in Sekunden, hh:mm:ss-format

Ich versuche, ein einfaches Programm zum konvertieren von Zeit in Sekunden, hh:mm:ss-format. Aber für einige bestimmte input-Werte, die es produziert, eine falsche Uhrzeit-format. Dies ist, was ich versucht habe:

Public Class Form1
    Dim Hours, Minutes, Seconds As Integer

    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        lblHours.Text = "00"
        lblMinutes.Text = "00"
        lblSeconds.Text = "00"
        txtTimeSeconds.Text = ""
        txtFormattedTime.Text = ""
    End Sub

    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate1.Click
        Seconds = Integer.Parse(txtTimeSeconds.Text)
        Hours = Seconds / 3600
        Seconds = Seconds Mod 3600
        Minutes = Seconds / 60
        Seconds = Seconds Mod 60

        lblHours.Text = Hours.ToString.PadLeft(2, "0"c)
        lblMinutes.Text = Minutes.ToString.PadLeft(2, "0"c)
        lblSeconds.Text = Seconds.ToString.PadLeft(2, "0"c)

        txtFormattedTime.Text = Hours.ToString.PadLeft(2, "0"c) & ":" & Minutes.ToString.PadLeft(2, "0"c) & ":" & Seconds.ToString.PadLeft(2, "0"c)
    End Sub
End Class

Es funktioniert, wenn der input-Wert wird 30:

Programm zum konvertieren von Zeit in Sekunden, hh:mm:ss-format

Es funktioniert nicht, wenn der Eingabewert 31:

Programm zum konvertieren von Zeit in Sekunden, hh:mm:ss-format

Was habe ich falsch gemacht? Wie kann ich dieses problem beheben?

InformationsquelleAutor der Frage Failed_Noob | 2012-01-15

  1. 17

    Es ist Klasse .NET genannt TimeSpandas macht den code einfach und elegant.

    Beispiel:

    dim iSecond as double = 0 'Total number of seconds
Dim iSpan As TimeSpan = TimeSpan.FromSeconds(iSecond)

lblHours.Text = iSpan.Hours.ToString.PadLeft(2, "0"c)
lblMinutes.Text = iSpan.Minutes.ToString.PadLeft(2, "0"c)
lblSeconds.Text = iSpan.Seconds.ToString.PadLeft(2, "0"c)

txtFormattedTime.Text = iSpan.Hours.ToString.PadLeft(2, "0"c) & ":" & _
                        iSpan.Minutes.ToString.PadLeft(2, "0"c) & ":" & _
                        iSpan.Seconds.ToString.PadLeft(2, "0"c)

    InformationsquelleAutor der Antwort John Woo

  2. 8

    Visual Basic hat zwei division Operatoren / und \. Der /- operator führt zu einem Ergebnis, ist der Typ Double. Sie berechnen 31 /60 = 0.51666... Sie als Nächstes weisen Sie das Ergebnis auf eine ganze Zahl, erfordert die Rundung. Damit die Herstellung von 1, nicht 0.

    Wollen Sie das \ operator der integer-division operator. Es kürzt das Ergebnis.

    InformationsquelleAutor der Antwort Hans Passant

  3. 5

    Ich hoffe, dieser code wird nützlich sein,

    Dim ts As TimeSpan = TimeSpan.FromSeconds(227) 'or --> Dim ts As New TimeSpan(0, 0, 0, 227, 0)

Dim mydate As DateTime = New DateTime(ts.Ticks)
MessageBox.Show(mydate.ToString(("HH:mm:ss")))

    InformationsquelleAutor der Antwort JotaPardo

  4. 3

    Du mit Ganzzahlen um Ihre Daten zu speichern, sondern division gibt Sie verdoppelt. Beim konvertieren es zurück zu den ganzen zahlen es wird gerundet auf die nächste Runde Zahl. So 0.5 wird 0 0.51 aber wird 1.

    InformationsquelleAutor der Antwort Serge Bekenkamp

  5. 1
    Dim SecondsDifference as integer = 2500  
Dim hms = TimeSpan.FromSeconds(SecondsDifference)
Dim h = hms.Hours.ToString
Dim m = hms.Minutes.ToString
Dim s = hms.Seconds.ToString
MsgBox("Hour:" + h + " Min:" + m + " Sec:" + s)

    InformationsquelleAutor der Antwort Siva S Tenet

  6. 1

    Für die txtformattedtime.text=... ich denke "ispan.tostring" würde auch funktionieren.

    InformationsquelleAutor der Antwort dba

  7. 1

    Ich weiß, das hat man bereits beantwortete Fragen für eine Weile jetzt, aber ich dachte, ich würde teilen meine Lösung für das problem zur hand. Wenn Sie die Anzahl der Sekunden in einer TimeSpan Objekt, können Sie ganz einfach extrahieren Sie die Tage, Stunden, Minuten, Sekunden oder sogar in Bruchteilen von Sekunden direkt über TimeSpan.toString() Methode. Bei identischer form und Objekt-Namen, ich verwendete den folgenden code, um die gewünschten Ergebnisse zu erreichen.

    Public Class Form1
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
    lblHours.Text = "00"
    lblMinutes.Text = "00"
    lblSeconds.Text = "00"
    txtTimeSeconds.Text = ""
    txtFormattedTime.Text = ""
End Sub
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
    Dim tsSeconds = TimeSpan.FromSeconds(Convert.ToDouble(txtTimeSeconds.Text))
    lblHours.Text = tsSeconds.ToString("hh")
    lblMinutes.Text = tsSeconds.ToString("mm")
    lblSeconds.Text = tsSeconds.ToString("ss")
    txtFormattedTime.Text = tsSeconds.ToString("hh\:mm\:ss")
End Sub
End Class

    Besuchen hier für weitere Informationen über die verwendete Methode.

    InformationsquelleAutor der Antwort Sirach Matthews

Schreibe einen Kommentar