格式化时间 (HH:MM:SS)

Question

我从小时、分钟和秒的数字上升和下降中获取值。

问题是，例如，如果时间是上午 9.15，它将显示为 9:15:0

我想要做的是格式化它们，以便如果任何值（小时、分钟或秒）小于 10 ，它会在数字前添加 0，因此数字显示为 09:15:00。

我尝试的是这个，但它不起作用：

Sub BtnSetClick(sender As Object, e As EventArgs)

        lbl8.Visible = True

        Dim nmTime As String = nmHour.Value.ToString + nmMin.Value.ToString + nmSec.Value.ToString



        lblST.Text.Format(nmTime.ToString, "HH:MM:SS")


        lblST.Text = (nmTime)

        lblST.Visible = True

    End Sub

Answer 1

您似乎通过多次将所有内容转换为字符串来做到这一点，请尝试如下操作：

Dim ts As new TimeSpan(CInt(nmHour.Value), CInt(nmMin.Value), CInt(nmSec.Value))
lblST.Text = ts.ToString("HH:MM:SS")

TimeSpan.ToString 很有用。

编辑：更新了代码以反映 Tim 关于数据类型的评论。

Answer 2

试试这个：

Sub BtnSetClick(ByVal sender As Object, ByVal e As EventArgs)          

    lbl8.Visible = True          
    Dim nmTime As String = nmHour.Value.ToString().PadLeft(2, '0') + nmMin.Value.ToString().PadLeft(2, '0') + nmSec.Value.ToString().PadLeft(2, '0')            

    lblST.Text = nmTime          
    lblST.Visible = True      
End Sub 

Answer 3

尝试使用 TimeSpan 对象，它应该为您完成所有艰苦的工作！

Dim nmTime As New TimeSpan(nmHour.Value, nmMin.Value, nmSec.Value)

lblST.Text = nmTime.ToString
lblST.Visible = True