还是用时段吧
Dim t As new TimeSpan(0,0,0,369899) '4个参数,天时分秒Output.show(t.Days & "天" & t.Hours & "小时" & t.Minutes & "分钟" & t.Seconds & "秒")