主题：[求助]秒转为时间（已解决）

 测试正常

Dim N,h,m,s As Integer
Dim sj As Date
N = 555
h = N \ 3600
m = (N Mod 3600) \ 60
s = N Mod 60
sj = Format(new Date(1,1,1,h,m,s), "HH:mm:ss")
MessageBox.Show(sj)