你的问题应该是转换成几时几分几秒吧？
这可以利用现成的VB函数，也可以自己编写一个函数，下面是自编的代码：

Function timeFormats(s As Long) As String '将毫秒转化为时:分:秒
timeFormats = Format(s \ 3600000, "0") & ":" & Format(s \ 60000 Mod 60, "00") & ":" & Format(s \ 1000 Mod 60, "00")
End Function

你好~为什么我打到VB里面不行呢？
上面显示缺少END SUB？？
这个是为什么啊？
能不能把QQ给我~我想问的详细点~可以吗？？？真的谢谢了~~

用END SUB结束的是过程，用End Function结束的是函数。
既然你还没有学到这儿来，那么就改用下面的代码吧：

Private Sub Command1_Click() '将秒转化为时:分:秒
Dim s As Long, t As String
s = InputBox("请输入秒数：")
t = Format(s \ 3600, "0") & ":" & Format(s \ 60 Mod 60, "00") & ":" & Format(s Mod 60, "00")
MsgBox "输入的秒数转换为时分秒为：" & t
End Sub

你要先在窗体上放一个按纽，然后把上面的代码复制到代码窗口，运行，点击按纽，按提示输入一个数字，就可以看见结果了。

很感谢~真的很感谢~~