如何将时间hh:mm:ss格式转换为分钟的方法总结

第一种方法：单个过程单个函数

       日期时间差函数DateDiff ()

       格式：DateDiff (interval As DateInterVal, dt1 As DateTime, dt2 As DateTime [, dayofweek As FirstDayOfWeek [, weekofyear As FirstWeekOfYear ]] As Long

    说明：返回dat1和dat2 两个日期之间的间隔数，间隔单位为参数interval

    例如：DateDiff (“m”,#12/15/1990#, ##1/10/1990# )会返回-11，即两个日期相间隔11个月（第一个参数指定间隔单位为月；DateDiff (“d”, #12/5/90# , #12/15/90# )会返回10，即两个日期间隔10天（第一个参数指定间隔单位为天）。

    获得分钟：

    time1为初始时间

    time2为结束时间

    DateDiff("m"，time1,time2)

 

 

   

第二种方法：多个过程

      1、多个函数

 

    如果是要取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)

    2、单个函数

          获取日期时间的指定部份函数DatePart ()

          格式：DatePart (interval As DateInterval, dt As DateTime [, dayofweek As FirstDayOfWeek [, weekofyear As FirstWeekOfYear ]])

          说明：返回特定日期指定部分。

             例如：DatePart (“y”, #9/11/92#)会返回天数255，因为9月11日为1992年的第255天；DatePart (“w”, #8/22/2000)会返回3，表示为星期二。DatePart ()函数的参数意义同DateDiff ()函数。

             获得分钟：

                       dim h as instring

                       dim m as instring

                       dim s as instring

                       h = datepart("h",time) 获得小时

                       m = datepart("m",time) 获得分钟

                       s = datepart("s",time) 获得秒

                       总的分钟数为h*60+m+s/60