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

如果是要取hh:mm:ss格式变量里的分钟数,可以这么写@H_403_2@
dim a@H_403_2@
dim b as integer@H_403_2@
a=format(time,"hh:mm:ss")@H_403_2@
b=minute(a)@H_403_2@
print b@H_403_2@

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

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

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

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)@H_403_2@@H_403_2@

@H_403_2@@H_403_2@@H_403_2@@H_403_2@

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