用字符列,不要用时段。
dr("空时") = Format(tp.TotalSeconds() \ 3600, "00") & ":" & Format(tp.TotalSeconds() \ 60, "00")