VB6如何将秒返回成小时

VB带的有函数的.

print DateAdd("s",4250,0)
返回1:10:50

你也可以自己格式化成你需要的格式:
print format (DateAdd("s",4250,0),"hh小时mm分ss秒")
返回:01小时10分50秒

自己算

用算式语言编写阿，也就是把小学的数学算式用VB语言表达出来，就可以了。

1:
t=10000
h=int(t/3600)
m=int(t/60)-h*60
s=t mod 60
print h;m;s
2:
TimeSerial 函数，算法自己查阅msdn

在text1中输入秒数就知道时间了！ LZ应该知道算法的！
Private Sub Command1_Click()
dim a
a = Text1.Text
MsgBox "时间为:" & a \ 3600 & "小时" & (a Mod 3600) \ 60 & "分钟" & a Mod 60 & "秒"
End Sub