如前面几位所说,用ISDATE函数即可
用法:
ISDATE(textbox1.text & "-" & textbox2.text & "-" & textbox3.text)
用 ISDate 函数就行。
先将年月日组合成字符串:年-月-日 或者年/月/日,再进行判断。
如: ISDate("2011/2/29") 返回False
ISDate("2012/2/29") 返回True
我只能给你一个在EXCEL单元格中的示例,VBA我做不来:
假设年月日分别在A1B1C1,则在D1输入
=IF(ISERROR(DATEDIF(A1&"-"&B1&"-"&C1,"2012-8-31","d")),"不合法","合法")
即可
你把这三个文本框的数字连成日期,再判断是否合法即可