用它自带的下拉列表 来修改
从策划到设计制作，每一步都追求做到细腻，制作可持续发展的企业网站。为客户提供做网站、网站设计、网站策划、网页设计、域名申请、虚拟空间、网络营销、VI设计、 网站改版、漏洞修补等服务。为客户提供更好的一站式互联网解决方案,以客户的口碑塑造优易品牌,携手广大客户,共同发展进步。
数据库 如果你字段是 日期型 你可以设置格式
使用IsDate函数判断是否为有效的日期时间格式
示例：
Private Sub Command1_Click()
Print IsDate("2010-8-20") 'True
Print IsDate("2010-8-20 21:30:58") 'True
Print IsDate("2010-8-40") 'False
Print IsDate("2010-8-20 21:30:68") 'False
End Sub
效果：
函数说明：
IsDate函数判断是否为有效的日期时间格式
返回值：
IsDate 函数将返回一个 Boolean 值，指出一个表达式是否可以转换成日期。
语法：
IsDate(expression)
参数 描述
expression 必需的。要计算的表达式。
Dim dt as Date
Dim s="2009-12-32"
if NOT Date.TryPhrase(s,dt) then
'日期无效代码
end if
