如何把时间换成分钟

[jp0077777]

有一小计时器 显示时间为16：40：50 我想把这个时间转换成分钟 应该是16个小时40分钟=1000 秒可以乎略不计 如何做到


text1.text=16:40:50
如果转换成分钟

谢了

[threenewbee]

小时 x 60 + 分钟 + 秒 / 60。

[贝隆]

[Quote=引用 1 楼 caozhy 的回复:]
小时 x 60 + 分钟 + 秒 / 60。
[/Quote]
附议！

[jp0077777]

text1.text=16:40:50
那个16 40如何分别得到

[finaltest]

Dim aryTime() As String
Dim sMinute As String

aryTime = Split(Trim(Me.Text1.Text), ":")
sMinute = aryTime(0) * 60 + aryTime(1)

[jp0077777]

好了

谢了