如何实现秒数不足两位时自动补0

bingege

我在做一个倒计时器，需要将总秒数转化为XX:XX:XX样式的时间格式，为了保持总长度不变，想把不足两位的分数和秒数自动补0，上网查了后发现了format函数，自己试了一下，发现分数可以实现自动补0，秒数却无法实现，请大神帮帮忙，找找原因，或者用其他方法实现也行。谢谢
PS:其实刚写好代码的时候秒数也是可以实现自动补0的，但是随着继续写后面的代码，过程中反反复复的调试，最终是分数可以实现自动补0，秒数却不行。
代码如下：

1.     Public Sub LABEL_SHOW()
   
2.         X1 = Int(time / 3600)
   
3.    
   
4.         Y1 = Int((time - X1 * 3600) / 60) 'mod是余数
   
5.         If Y1 < 10 Then
   
6.             Y2 = Format(Y1, "00")
   
7.         Else
   
8.             Y2 = Y1
   
9.         End If
   
10.    
    
11.         Z1 = time - X1 * 3600 - Y1 * 60
    
12.         If Z1 < 10 Then
    
13.             Z2 = Format(Z1, "00")
    
14.             Debug.Print Z2
    
15.         Else:
    
16.             Z2 = Z1
    
17.         End If
    
18.     End Sub

复制代码