简化用户输入的日期校验

stone0823

日期的输入在录入工作中非常频繁，用户界面设计的观点认为：提供界面化的选择从某种意义上来说并理想。很多国外的软件都提供让用户简化的输入方式。比如当用户输入0325时，系统根据设定的日期格式，自动转换成 2008-03-25(今年)，如果用户输入070325，系统自动转换成2007-03-25。

附件中提供一种实现方法，允许用户输入正常日期，或YYYYMMDD，YYMMDD，MMDD等格式。用非绑定控件实现，避免ACCESS系统的错误提示。

游客，如果您要查看本帖隐藏内容请回复

5988143

谢谢分享~[:19]

t小宝

学习了[:26]

gdfsslec

非常实用

wang1950317

简化输入，有用，谢谢！

njy6000

看能不能用上,习惯用先择.

hi-wzj

嗯，想法很好，建议：
1、If Len(Var) = 4 Then      =6      =8     可以用  Select Case Len(Var)   来替代。
2、
strTempDate = strYear & "-" & strMonth & "-" & strDate
        If IsDate(CDate(strTempDate)) Then
            VerifyDate = CDate(strTempDate)
        Else
            VerifyDate = Null
        End If
        Exit Function
在三个if中都存在，因此可以放在循环判断的末尾来执行。

13555609005

学习吓

xaxxax

非常实用

xaxxax

实用