我的程序中有如下语句：
Label2.Caption = (y1 \ 3600) & "：" & ((y1 Mod 3600) \ 60) & "：" & (y1 Mod 60)
其中 y1 定义为   Dim y1 As Integer
但显示出来的格式是0：0：0
我想显示为 00：00：00，该如何修改呢？

format$(y1\3600,"00") & ":" & format$((y1 mod 3600) \60,"00") & ":"&  format$(y1 mod 60,"00")

Format((y1 \ 3600) & ":" & ((y1 Mod 3600) \ 60) & ":" & (y1 Mod 60), "hh:mm:ss")

把符合时间格式的字符串按 小时:分钟:秒 ,每个占二位,以0 起的格式显示.
如:   00:00:00

不必要以 日期类型 提供时间给 Format 函数

Format((y1 \ 3600) & ":" & ((y1 Mod 3600) \ 60) & ":" & (y1 Mod 60), "hh:mm:ss")
很诡异。我刚开始也是这样想的，但在家里笔记本上运行结果居然和预想的不一样。
y1=3600
结果结果显示出来是"01:0:0"，想不通。
以前也遇到类似的“灵异”事件。
明明设置了frmMain.visible=false，结果运行时还是显示出来了。（其它地方完全没有设置过frmMain的任何可视元素)
难道vb6在win7下就是这么诡异？

[ 本帖最后由 jiashie 于 2010-7-31 21:02 编辑 ]

Debug.Print Format(TimeSerial((Y1 \ 3600), ((Y1 Mod 3600) \ 60), (Y1 Mod 60)), "hh:mm:ss")

'这个呢？

Format(cdate( (y1 \ 3600) & ":" & ((y1 Mod 3600) \ 60) & ":" & (y1 Mod 60) ) , "hh:mm:ss")         '强制转为 日期时间类型，再格式化

Format((y1 \ 3600) & ((y1 Mod 3600) \ 60) & (y1 Mod 60) , "00:00:00")     '按每二个零一个冒显示后面6位数字

这二种方式呢？
我昨天试了，第二种可以了，但我从原理上说不过去，只能理解为 ，format 把任何类似数字的字符串，按后面的格式去显示。