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

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...