时段是以秒为单位的时间。
你可以编码将这个秒数加入到日期值即可,例如:
Dim sp As Integer = 1345Dim dt As Date = Date.Todaydt = dt.AddSeconds(sp)output.show(dt)