在机房收费系统中,我们引入了在部件中 Microsoft Windows Common Controls-2 6.0控件。免去了我们输入日期的困扰。那么怎么查询两个日期之间的数据呢?
这里引入了一个DateDiff()函数,用于返回两个日期之间的数据。
语法:DateDiff(datepart,startdate,enddate)
datepart:表示应用在查询中的计算差值的参数。
datepart参数可以是以下值:
datepart | 缩写 |
年 | yy, yyyy |
季度 | qq, q |
月 | mm, m |
年中的日 | dy,y |
日 | dd,d |
周 | wk,ww |
星期 | dw,w |
小时 | hh |
分钟 | mi,n |
秒 | ss,s |
毫秒 | ms |
微秒 | mcs |
纳秒 | ns |
顾名思义,startdate和enddate分别为计算的开始日期和结束日期。
例如:我在系统中添加的代码如下:
<span style="font-family:KaiTi_GB2312;font-size:24px;"> '比较这两个日期的大小
If DateDiff("n", CDate(Date1), CDate(Date2)) < 0 Then
MsgBox "起始日期与结束日期有冲突,请重新选择日期!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
’从数据库中读取
txtSQL = "select * from recharge_Info where date >= '" & Date1 & "' and date <= '" & Date2 & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "没有您要的数据!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
</span>
其中,CDate函数可以识别日期文字和时间文字,以及一些在可接受的日期范围内的数字。把各个部分根据系统的区域设置转换为日期格式。