首页 > 代码库 > 积累——DateDiff函数

积累——DateDiff函数

2024-08-07 07:28:12   208人阅读


在做下机功能的时候，为了计算两个时间差，需要用到一个DateDiff函数，下面来了解一下这个函数。


官方解释：

     DateDiff是返回两个日期之间的时间间隔。

语法：DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

参数描述
interval必选。字符串表达式，表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。
date1, date2必选。日期表达式。用于计算的两个日期。
firstdayofweek可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
firstweekofyear可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。
 Interval可以有以下值：
设置描述
yyyy年
q季度
M月
y一年的日数
d日
w一周的日数
ww周
h小时
n分钟
s秒

以下机计算上下机之间用了多长时间为例

'计算出时间差
        Dim time As Long
        Dim time1 As Long
        Dim time2 As Long
       
        Dim OT As String = mylist.First.OnTime
        Dim OD As String = mylist.First.OnDate

        time =  DateDiff("n", OD, Today.Date)+DateDiff("n", OT, TimeOfDay)‘得到一共有多少分钟
        Dim IHour As Integer ’将Long类型的Time转化为Integer类型
        IHour = (Int(time / 60)) 'long值超出int的取值范围后再转型的话会有问题的。就是转型后的值变
        TxtConTime.Text = IHour '获得小时


这样就能得到上机消费时间了。同时根据函数计算也能计算出上机的消费金额

                     

附加：DateAdd函数和它的用法差不多，可以计算加/减一段时间间隔。有兴趣了解DateAdd 函数

这个时间函数不是非常的难，但是使用上之后事半功倍了。积累。



积累——DateDiff函数


联系
我们