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