以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期出错提醒  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72872)

--  作者:HJG_HB950207
--  发布时间:2015/8/7 20:10:00
--  日期出错提醒
请教老师:
      表A,【入职年月】为字符型,掩码:####-##-##

     在录入窗口,建一textBOX,绑定表A的【入职年月】,如何在录入出错时提醒 “日期错误”?(0<月<13,0<日<32)

--  作者:有点蓝
--  发布时间:2015/8/7 20:19:00
--  
参考这句
Dim d As Date \'变量d用于存储转换结果
If Date.TryParse("1999/12/31", d) Then \'如果转换成功
    Output.Show(d) \'输出转换结果
Else
    Output.Show("无效日期格式") \'给出错误提示
End If

--  作者:HJG_HB950207
--  发布时间:2015/8/7 20:20:00
--  
谢谢老师!
--  作者:有点蓝
--  发布时间:2015/8/7 20:20:00
--  
错误显示参考