日期审核代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期审核代码

共有2567人关注过本帖树形打印复制链接主题：日期审核代码

HJG_HB950207

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：394 积分：6003 威望：0 精华：0 注册：2015/2/17 10:18:00

日期审核代码 发帖心情

Post By：2015/8/31 13:43:00 [只看该作者]

如下是对日期（字符型，只含年月（YYYY-MM)）的VALIDATEEDIT的审核代码：

If e.Col.Name = "参加工作时间" AndAlso e.Text <> Nothing Then

Dim ary As String() = e.Text.Split("-")

If ary.Length <> 2 Then

MessageBox.Show("时间输入有误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.cancel = True

Else

If val(ary(1)) > 12 Then

e.Cancel = True

MessageBox.Show("时间输入有误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

请教：如在上日期后再加日（列为字符型），格式为YYYY-MM-DD, 对如上代码如何修改？谢谢老师！

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/31 14:10:00 [只看该作者]

参考代码

Dim str As String = "2013-04/30"
Dim d As Date

If Date.TryParse(str, d) = False OrElse Format(d, "yyyy-MM-dd") <> str Then
msgbox("不是正确的日期")
End If

主题：日期审核代码