【机房收费系统】——计算消费时间（DateDiff 函数解释）

VB中DateDiff 函数用法

(一)语法：

 

       DateDiff (interval, Date1 , Date2[,firstweekofyear[,firstweekofyear]])

返回一个Variant(long) 的值,表示两个指定日期间的时间间隔数目

(二)参数解释：

interval：

设定两个日期之间的期间计算之单位。譬如 >interval="m" 表示计算的单位为月。 >interval 的设定值如：

            yyyy > Year 年
           q Quarter 季
           m Month 月
           d Day 日
           w Weekday 星期
           h Hour 时
           n Minute 分      

           s Second 秒

Date1 ，Date2：

计算期间的两个日期表达式，若 >date1 较早，则两个日期之间的期间结果为正值；若 >date2 较早， 则结果为负值。

firstweekofyear：

设定每周第一天为星期几， 若未设定表示为星期天。 >FW 的设定值如下：

         0 使用 >API 的设定值。
         1 星期天
         2 星期一
         3 星期二
         4 星期三
         5 星期四
         6 星期五
         7 星期六

firstweekofyear：

设定一年的第一周， 若未设定则表示一月一日那一周为一年的第一周。 >FY 的设定值如下：

         0 使用 >API 的设定值。
         1 一月一日那一周为一年的第一周
         2 至少包括四天的第一周为一年的第一周
         3 包括七天的第一周为一年的第一周

(三)示例如下:

'以“秒”为单位计算两时间之差
Msgbox DateDiff("S","2010-7-7 18:00:00","2010-7-7 18:00:15")

'计算2008-8-8 与现在相隔多少天 ,now()函数是获取当前的日期时间
Msgbox DateDiff("D","2008-8-8",now())

’计算两个日期的相隔月数.
   DiffMonthL = DateDiff("M", DATE_start, DATE_end)


========================================================================