参考代码
Dim d As Date = "0:04:15"Dim s As String = format(d.Hour * 60 + d.Minute + d.Second / 60, "0.00")msgbox(s)
加好友 
发短信
Post By：2016/7/19 15:20:00 [显示全部帖子]
