怎样判断一个文本框中的值是否是有效的日期?

ayu330602

如:有一个文本框的值是2009-6-32,怎样判断出是个非法日期?
谢谢!

6688

sub kk()
ans = isdate(textbox1.text)
end sub

alzeng

IsDate(TB1.Text) ＝False

ronhy

如果格式是对的，可以用CDATE来转换

hzy0572

OFFICE2007有自带的一个功能。叫“数据有效性”。
选中你需要输入日期的地方=>数据=>数据有效性=>设置=>允许=>日期=>数据=>大于=>XXXX-XX-XX=>确定。
你会发现，当你输入不是日期的时候，会显示错误，输入非法值

ayu330602

谢谢各位,特别是一念老师和6688老师,IsDate这函数很好用.贴上一句完整的代码,供新手们参考
If IsDate(TextBox1.Text) = False Then MsgBox "日期非法,请检查更正 !   ", 16, "用户管理提示": TextBox1.SetFocus: Exit Sub
效果是确认后如日期非法焦点回到原文本框,

[ 本帖最后由 ayu330602 于 2009-6-11 17:01 编辑 ]

antique_star

Isdate只能判断月、日的非法错误，但对于年的错误好像没用。
比如这样一个文本：201-5-1
Isdate则判断为True，很是无奈！
有哪位大侠知道更完善判断方法么？跪求

naanhuanbao

antique_star 发表于 2018-11-27 09:41
Isdate只能判断月、日的非法错误，但对于年的错误好像没用。
比如这样一个文本：201-5-1
Isdate则判断为T ...

好似冤枉IsDate函数了吧？年只要是正数就行。201表示“公元201年”，没什么错误吧！
如果非要4位数的年才算正确，可以另外用len函数判断字符长度。

antique_star

好似冤枉IsDate函数了吧？年只要是正数就行。201表示“公元201年”，没什么错误吧！
如果非要4位数的年才算正确，可以另外用len函数判断字符长度。

说得也对哦，可是我们经常接触的肯定是有生之年啦。