[已解决]大量日期格式检查，代码怎样用一个函数代替

姝薇

1、多个文本框，textbox1、textbox8、textbox98,名称不是连续的，目前每一个文本框的离开事件下面都是很长的代码，能否改成一个代码，每个事件后面去执行这个代码就可以了，小弟初学，请各位代为修改。 2、一个是检查日期的，一个检查身份证号码的，麻烦各位了

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-24 16:18

1. Function CheckDate(strText As String) As Boolean
   
2.     Dim objText As MSForms.TextBox
   
3.     Set objText = Me.Controls(strText)
   
4.     With objText
   
5.         If .Text = "" Or .Text = "长期" Then Exit Function
   
6.         If Not IsDate(Format(.Text, "####-##-##")) Then   '检查日期格式
   
7.             CheckDate = True
   
8.             MsgBox "输入格式有误"
   
9.             .Text = ""
   
10.             .SetFocus
    
11.         Else
    
12.             If DateDiff("d", Format(.Text, "####-##-##"), Date) > 0 Then
    
13.                 CheckDate = True
    
14.                 MsgBox "证件已过期,请更新"
    
15.                 .Text = ""
    
16.                 .SetFocus
    
17.             End If
    
18.         End If
    
19.     End With
    
20. End Function

复制代码

跳转到最佳答案楼层

hwc2ycy

把判断写成一个函数，传递控件的名字做为参数。

hwc2ycy

或者用自定义类来实现。

hwc2ycy

貌似用类模块的方法，EXIT事件不支持。

姝薇

可惜我不会啊，各位老师给做一个学习一下吧

姝薇

我做的函数可以检查，但是不能清空和定位单元格

hwc2ycy

1. Function CheckDate(strText As String) As Boolean
   
2.     Dim objText As MSForms.TextBox
   
3.     Set objText = Me.Controls(strText)
   
4.     With objText
   
5.         If .Text = "" Or .Text = "长期" Then Exit Function
   
6.         If Not IsDate(Format(.Text, "####-##-##")) Then   '检查日期格式
   
7.             CheckDate = True
   
8.             MsgBox "输入格式有误"
   
9.             .Text = ""
   
10.             .SetFocus
    
11.         Else
    
12.             If DateDiff("d", Format(.Text, "####-##-##"), Date) > 0 Then
    
13.                 CheckDate = True
    
14.                 MsgBox "证件已过期,请更新"
    
15.                 .Text = ""
    
16.                 .SetFocus
    
17.             End If
    
18.         End If
    
19.     End With
    
20. End Function

复制代码

hwc2ycy

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)    '退出文本框事件
   
2.     Cancel = CheckDate(Me.ActiveControl.Name)
   
3. End Sub

复制代码

姝薇

hwc2ycy 发表于 2013-6-24 16:18

非常感谢您的解答,还有一个疑问

这段代码 Set objText = Me.Controls(strText)

为什么用到我的表里面就会提示"类型不匹配"呢?会是哪里出现了问题呢?

hwc2ycy

这个代码是在窗体模块里用的。
别的地方不行。