vb中如何把hh:mm:ss的时间格式转换成多少分钟？

vb中如何把hh:mm:ss的时间格式转换成多少分钟？

如果是要取hh:mm:ss格式变量里的分钟数,可以这么写

dim a

dim b as integer

a=format(time,"hh:mm:ss")

b=minute(a)

print b

如果是把当前时间转换为分钟,就参考上面的的做法就OK了.

b=HOUR(TIME)*60+MINUTE(TIME)+SECOND(TIME)/60

print b

具体实例：如果是把变量a的时间格式转换为多少分钟？

Dim a

Dim b As Integer

a = Format(Time, "00:01:25")

b = Minute(a)

Print Hour(a) * 60 '小时转化为分钟

Print Minute(a)

Print Second(a) / 60 '秒转化为分钟

Print Hour(a) * 60 + Minute(a) + Int(Second(a) / 60)

vb中如何把hh:mm:ss的时间格式转换成多少分钟？，除此方法外，学有没有其他更简便的方法？见此博文者，如有更好的方法，请指教，不胜感激！