机房收费系统之日期查询

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