机房收费系统之日期查询

   在机房收费系统中，我们引入了在部件中 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函数可以识别日期文字和时间文字，以及一些在可接受的日期范围内的数字。把各个部分根据系统的区域设置转换为日期格式。