使用vb6添加前导零？

使用vb6添加前导零？,vb6,Vb6,我做这件事没有任何进展，到目前为止我所做的就是 Private Sub Timeperpart_Timer() secs = secs + 1 If secs = 60 Then mins = mins + 1 secs = 0 End If If mins = 60 Then hrs = hrs + 1 mins = 0 End If If secs < 10 Then Lblt

Private Sub Timeperpart_Timer()


    secs = secs + 1
    If secs = 60 Then
    mins = mins + 1
    secs = 0
    End If
    If mins = 60 Then
    hrs = hrs + 1
    mins = 0
    End If

     If secs < 10 Then
           Lbltime.Caption = CStr(hrs & ":" & mins & ":" & 0 & CStr(secs))
           End If

If mins < 10 Then
ElseIf secs < 10 Then
            Lbltime.Caption = CStr(hrs & ":" & 0 & CStr(mins) & ":" & 0 & CStr(secs))
      Else
       Lbltime.Caption = CStr(hrs & ":" & 0 & CStr(mins) & ":" & secs)
       End If

       If hrs < 10 Then
       ElseIf mins < 10 Then
       ElseIf secs < 10 Then
       Lbltime.Caption = CStr(0 & CStr(hrs) & ":" & 0 & CStr(mins) & ":" & 0 & CStr(secs))
       End If

       If hrs < 10 Then
       ElseIf mins < 10 Then
       ElseIf secs > 10 Then

        Lbltime.Caption = CStr(0 & CStr(hrs) & ":" & 0 & CStr(mins) & ":" & secs)
       End If

        If hrs < 10 Then
       ElseIf mins > 10 Then
     ElseIf secs > 10 Then

        Lbltime.Caption = CStr(0 & CStr(hrs) & ":" & mins & ":" & secs)
       End If

End Sub

Private Sub Timeperpart_Timer（）
秒=秒+1
如果秒=60，则
分钟=分钟+1
秒=0
如果结束
如果分钟=60，则
小时数=小时数+1
分钟=0
如果结束
如果秒数小于10，则
Lbltime.Caption=CStr（小时和分钟和秒）
如果结束
如果分钟<10，则
如果秒数小于10，则
Lbltime.Caption=CStr（小时和“：”&0&CStr（分钟）和“&0&CStr（秒））
其他的
Lbltime.Caption=CStr（小时和分钟和秒）
如果结束
如果hrs<10，则
ElseIf分钟<10分钟
如果秒数小于10，则
Lbltime.Caption=CStr（0&CStr（小时）&“&0&CStr（分钟）&“&0&CStr（秒））
如果结束
如果hrs<10，则
ElseIf分钟<10分钟
如果秒数大于10，则
Lbltime.Caption=CStr（0&CStr（小时）&“&0&CStr（分钟）&“&secs）
如果结束
如果hrs<10，则
艾尔塞夫分钟>10分钟
如果秒数大于10，则
Lbltime.Caption=CStr（0&CStr（小时）&“&min&“：&secs）
如果结束
端接头

行中，如果分钟数<10，则程序不会将分钟数识别为小于10，如果分钟数为零，则程序不会添加前导零，与小时数相同。我正在寻找一种可行的方法，或者任何一种方法都可以做到这一点。
将所有代码替换为：

Lbltime.Caption = Format$(TimeSerial(hrs, mins, secs), "hh:mm:ss")

事实上，也将所有的
hr
分钟
秒
添加逻辑替换为：

Dim the_time As Date
....
the_time = DateAdd("s", 1, the_time)

因此，最终你会：

Private the_time As Date

Private Sub Timeperpart_Timer()
  the_time = DateAdd("s", 1, the_time)
  Lbltime.Caption = Format$(the_time, "hh:mm:ss")
End Sub

将所有代码替换为：

Lbltime.Caption = Format$(TimeSerial(hrs, mins, secs), "hh:mm:ss")

事实上，也将所有的
hr
分钟
秒
添加逻辑替换为：

Dim the_time As Date
....
the_time = DateAdd("s", 1, the_time)

因此，最终你会：

Private the_time As Date

Private Sub Timeperpart_Timer()
  the_time = DateAdd("s", 1, the_time)
  Lbltime.Caption = Format$(the_time, "hh:mm:ss")
End Sub

谢谢你的帮助，我以前用这么多代码觉得很傻！我会尽快接受答案！谢谢你的帮助，我以前用这么多代码觉得很傻！我会尽快接受答案！