如何解决日期问题， 各位帮帮手，特急！！！

[coollele]

提示，前面有打开数据库。helpok
dbshelpok为全局变量。
modifiedate 为数据库里的日期字段。

Label1 = "今天是：" & Month(Date) & "月" & Day(Date) & "日"
Dim strsqlinfo As String
Dim rstCategories As Recordset
Dim num12 As Integer
strsqlinfo = "select count(*) as num12 from infomation where datepart('d',modifiedate)=datepart('d',date())"
Set rstCategories = dbsHelpok.OpenRecordset(strsqlinfo, dbOpenDynaset, dbSeeChanges)
With rstCategories
Label2 = !num12
End With

上面的代码没错！！计算出来的结果是将当天的数量交给label2。
现在的问题是，我想将DATE（）函数改为由用户自已输入日期。这时该用什么函数呢？？
和格式怎样写。。。

[ZTCHANG]

USE CVDATE(INPUTTXT)/CDATE(INPUTTXT)

[cloud]

格式和系统设置有关。
CDate("1999/03/04")是4月3日还是3月4日，
要看系统设置。如果系统日期格式是"yyyy/MM/dd”
那么是是4月3日，如果系统日期格式是"yyyy/dd/MM”
那么是是4月3日，如果系统日期格式是"dd/yyyy/MM”
会出错。系统日期格式在控制面班的区域设置中修改。

[Un1]

Dim dn AS Date
dn = InputBox("Input the date:")

strsqlinfo = "select count(*) as num12 from infomation where datepart('d',modifiedate)=datepart('d'," & dn & ")"