在vb.net中将分钟转换为小时：，分钟

我想将总分钟数转换为小时和分钟hh:mm

这是我的密码

    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
    Dim TotalMinute As Int32

    Dim Minute As Int32
    Dim Hour As Int32

    Try
        TotalMinute = CType(TextBox9.Text, Int32)

        TotalMinute = TotalMinute Mod 1440

        Hour = TotalMinute \ 60
        Minute = TotalMinute Mod 60

        TextBox5.Text = FormatTwoDigits(Hour) & ":" & FormatTwoDigits(Minute)

    Catch ex As Exception
        Exit Sub
    End Try

End Sub

Private Function FormatTwoDigits(ByVal i As Int32) As String
    If 30 > i Then
        FormatTwoDigits = "0" & i.ToString
    Else
        FormatTwoDigits = i.ToString
    End If
End Function

此代码在24小时内正常工作。。但从24后的0开始倒数

---

例如，如果输入为1500分钟，则应显示25:00而不是01:00，删除

TotalMinute=totalminutemod 1440

行，这表示如果总分钟超过一天，则删除任何“天”部分。（60分钟=1小时，24小时=1天，因此1440分钟=1天。）

删除您的

TotalMinute=totalminutemod 1440

行，这表示如果总分钟超过一天，则删除任何“天”部分。（60分钟=1小时，24小时=1天，因此1440分钟=1天。）

或者您可以让.Net来完成这项工作

    Dim ts As TimeSpan = TimeSpan.FromMinutes(TotalMinute)

    Dim s As String = String.Format("{0:00}:{1:00}", Math.Floor(ts.TotalHours), ts.Minutes)

---

或者你可以让.Net来做这项工作

    Dim ts As TimeSpan = TimeSpan.FromMinutes(TotalMinute)

    Dim s As String = String.Format("{0:00}:{1:00}", Math.Floor(ts.TotalHours), ts.Minutes)

---

我会做一些更像：

Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
    Dim TotalMinute As Integer
    If Integer.TryParse(TextBox9.Text, TotalMinute) Then
        Dim ts As TimeSpan = TimeSpan.FromMinutes(TotalMinute)
        TextBox5.Text = CType(ts.TotalHours, Integer).ToString("00") & ":" & ts.Minutes.ToString("00")
    End If
End Sub

---

我会做一些更像：

Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
    Dim TotalMinute As Integer
    If Integer.TryParse(TextBox9.Text, TotalMinute) Then
        Dim ts As TimeSpan = TimeSpan.FromMinutes(TotalMinute)
        TextBox5.Text = CType(ts.TotalHours, Integer).ToString("00") & ":" & ts.Minutes.ToString("00")
    End If
End Sub

您可以，然后与指定的格式字符串一起使用。您可以，然后与指定的格式字符串一起使用。