如何把XXXX秒转化成XX：XX：XX的格式

[moleboy]

变量miao中不停的被赋予动态变化的秒数（1000秒、2000、3666....)，请问我如何把它转化成时分秒的时间格式？
就是把3666秒转化成1小时1分6秒（1:01:06)

[Jneu]

/60,自己做函数了！

[zmazmapk]

dim secondCount as long
dim second as integer ,minute as integer,hour as long
dim sstr as string
hour=secondcount mod 3600
minute=(secondcount-hour*3600) mod 60
second=secondcount-hour*3600-minute*60
sstr=hour &"小时" & minute & "分" & second & "秒"

[outer2000]

up

[bdzwc]

YES

[tg123]

Function StoHMS(Seconds As Long) As String
Dim H, M, S As Integer
Dim sH, sM, sS As String
S = Seconds Mod 60
M = Int(Seconds / 60) Mod 60
H = Int(Seconds / 3600)
If S < 10 Then sS = "0" + CStr(S) Else sS = CStr(S)
If H < 10 Then sH = "0" + CStr(H) Else sH = CStr(H)
If M < 10 Then sM = "0" + CStr(M) Else sM = CStr(M)
StoHMS = sH + ":" + sM + ":" + sS
End Function

[Brunhild]

Private Sub Command1_Click()
Dim d As Date

d = DateAdd("s", CLng(Text1.Text), #1/1/1900#)
MsgBox DatePart("h", d) + 24 * DateDiff("d", #1/1/1900#, d) & "小时" & _
DatePart("n", d) & "分钟" & _
DatePart("s", d) & "秒"
End Sub

[TBBT]

what's DATEADD,DATEPART?