以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  秒数转换为时段的函数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171386)

--  作者:wangjh8888
--  发布时间:2021/8/28 7:14:00
--  秒数转换为时段的函数
老师

有时段转换为秒,如下
Dim t As New TimeSpan(1,6,30,15,5)
Dim Seconds As Double = t.TotalSeconds
Output.Show(Seconds)

问问 有没有秒数,转换为时段的
[此贴子已经被作者于2021/8/28 7:55:37编辑过]

--  作者:有点蓝
--  发布时间:2021/8/28 9:48:00
--  
很简单

Dim t As New TimeSpan(1,6,30,15,5)
Dim Seconds As Double = t.TotalSeconds
Output.Show(Seconds)

Dim t2 As new TimeSpan(0,0,Seconds)
Output.Show(t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒")