标签：style blog http ar color os 使用 sp strong
在做下机功能的时候，为了计算两个时间差，需要用到一个DateDiff函数，下面来了解一下这个函数。
官方解释：
DateDiff是返回两个日期之间的时间间隔。
语法：DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
| 参数 | 描述 |
| interval | 必选。字符串表达式，表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。 |
| date1, date2 | 必选。日期表达式。用于计算的两个日期。 |
| firstdayofweek | 可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。 |
| firstweekofyear | 可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。 |
| 设置 | 描述 |
| 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 函数
这个时间函数不是非常的难，但是使用上之后事半功倍了。积累。
标签：style blog http ar color os 使用 sp strong
原文地址：http://blog.csdn.net/mayfla/article/details/41848689
