private sub command1_clickdim s as longs = text1text2 = s \ 3600 & ":" & (s Mod 3600) \ 60 & ":" & (s Mod 3600) Mod 60 end sub转换出的形式是 h:m:s
format (DateAdd("s",4250,0),"hh小时mm分ss秒")
