Office中国论坛/Access中国论坛

标题: 简化用户输入的日期校验 [打印本页]

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

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

作者: 5988143 时间: 2008-6-16 23:36
谢谢分享~[:19]

作者: t小宝 时间: 2008-6-16 23:51
学习了[:26]

作者: gdfsslec 时间: 2008-6-17 15:02
非常实用

作者: wang1950317 时间: 2008-6-17 15:46
简化输入，有用，谢谢！

作者: njy6000 时间: 2008-8-5 01:33
看能不能用上,习惯用先择.

作者: hi-wzj 时间: 2008-8-5 09:30
嗯，想法很好，建议：
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 时间: 2008-8-6 17:02
学习吓

作者: xaxxax 时间: 2009-3-30 16:05
非常实用

作者: xaxxax 时间: 2009-3-30 16:09
实用

作者: airchinazj 时间: 2009-4-26 22:56
学习

作者: ljp518 时间: 2010-4-30 21:02
学习

作者: 82077802 时间: 2010-4-30 21:33
简化输入，有用，谢谢！

作者: fnsmydyang 时间: 2010-4-30 22:29
学习一下下.

作者: 65003764 时间: 2010-5-1 21:14
谢谢分享~[:19

作者: 67613188 时间: 2010-5-2 09:22
看看

作者: danis 时间: 2010-5-4 23:05
[img][img][/img][/img]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)