VB   发布时间:2022-04-03  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了vb.net – 将时间转换为hh:mm:ss格式的程序大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
我试图使一个简单的程序将时间转换为hh:mm:ss格式.但是对于某些特定的输入值,它会产生不正确的时间格式.这是我试过的:
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

当输入值为30时,它工作:

当输入值为31时,它不起作用:

我做错了什么?如何解决这个问题?

.NET中有一个叫做 TimeSpan的类,它使你的代码变得简单而优雅.

例:

dim iSecond as double = 0 '@R_682_10586@l 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)

大佬总结

以上是大佬教程为你收集整理的vb.net – 将时间转换为hh:mm:ss格式的程序全部内容,希望文章能够帮你解决vb.net – 将时间转换为hh:mm:ss格式的程序所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。