以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期审核代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74008)
--  作者：HJG_HB950207
--  发布时间：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
    End If
End If

请教：如在上日期后再加日（列为字符型），格式为YYYY-MM-DD, 对如上代码如何修改？谢谢老师！
--  作者：大红袍
--  发布时间：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