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的时间格式转换成多少分钟？，除此方法外，学有没有其他更简便的方法？见此博文者，如有更好的方法，请指教，不胜感激！