Question

用VB编程，要求：在一个textbox中输入一个日期2012-9-9，按确认后在另一个text中显示后一天2012-9-10。

年份有范围、月份超出要提示错误，天数超出也要提示错误。我已经编程成这样：
Private Sub Command1_Click()
If IsDate(Text1.Text) Then
If Year(CDate(Text1.Text)) >= 1912 And Year(CDate(Text1.Text)) <= 2050 Then
Text2.Text = DateAdd("d", 1, Text1.Text)
Else
Text2.Text = "年份超出范围"
End If
End If
End Sub
现在怎么增加月份和天数的限制和提示？
月份超出12月份，如：2012-13-12，会提示月份不合法，2012-12-33，会提示天数不合法，我没学过VB，不过现在我们要用VB编个小程序来进行软件测试，窗体如下：

在上个text输入一个日期，如果合法，按确认之后会在下面text里显示下一个日期，如：

如果不合法，按确认后在下面text里显示提示，如年份不合法，下面text会输入：年份超出规定范围，
我现在编程只到这步，下面还有月份和天数的提示，我不知道该怎么继续写下去，求高手指点，谢谢！





Answer 1

你一开始的这个IsDate(Text1.Text)就已经决定了所有非法的日期数（包括月份和天数错误的）都已经排除在外了。
其实实际编程中，除了年份限定有意义之外，月份和天数是无需单独检测的，只需检测是否合法即可。所以你的程序做到这样就可以了。最多就是再加个提示：
Private Sub Command1_Click()
If IsDate(Text1.Text) Then
If Year(CDate(Text1.Text)) >= 1912 And Year(CDate(Text1.Text)) <= 2050 Then
Text2.Text = DateAdd("d", 1, Text1.Text)
Else
Text2.Text = "年份超出范围"
End If
Else
Text2.Text = "日期格式错误"
End If
End Sub

追问

可是当我输入的月份或者天数超出范围，是没法输出任何东西的，比如我输入：2012-13-12，那么下一日期是没法输出，或者有什么提示，我想要的是当我输入2012-13-12后，下面text输出月份超出范围，天数也是一样的道理，我是用来做软件测试的，当我输入这些测试用例的时候，我希望会有这些提示，要是没有提示也没有输出任何信息，那么这个软件就是有BUG的，所以我现在才需要改进

追答

Text2.Text = "日期格式错误"
这个不是提示？

Answer 2

If Year(CDate(Text1.Text)) >= 1912 And Year(CDate(Text1.Text)) <= 2050 Then
改为
If CDate(Text1.Text) >= #1912-1-1# And CDate(Text1.Text) <= #2050-12-31# Then

Text2.Text = "年份超出范围"
适当改一下

追问

年份（1912~2050）、月份（1~12）、天数（月份不同，天数不一样）都不能超出范围，只要其中一个超出范围，都会有相应的提示，如年份是1911，则提示年份不在规定范围内，月份和天数也一样

追答

“月份超出12月份，如：2012-13-12，会提示月份不合法，2012-12-33，会提示天数不合法，”都能在
If IsDate(Text1.Text) Then
中判断出。

你的问题主要是天数不好判断，给你一个计算某年某月天数的函数
Private Function GetDays(y As Integer, m As Integer)
Dim n As Integer

If ((y Mod 4 = 0 And y Mod 100 0) Or y Mod 400 = 0) Then
n = 1
Else
n = 2
End If

Select Case m
Case 2
GetDays = IIf(n = 1, 29, 28)
Case 4, 6, 9, 11
GetDays = 30
Case 1, 3, 5, 7, 8, 10, 12
GetDays = 31
End Select
End Function

调用方法
某年某月天数 = GetDays(year(CDate(Text1.Text)), Month(CDate(Text1.Text)))

Answer 3

你只需要确认年份不超限定就可以了。因为VB6.0中的日期计算时系统会自动修正日期的。
比如：dateadd("d",1,2012-2-29)=2012-3-1
dateadd("d",1,2011-2-28)系统也会计算为2012-3-1

Answer 4

不用那么做，只要将字符强制转化为时间格式就行了，如果不是日期会报错

Answer 5

不用输入，用选择日期控件

Answer 6

用VB2008来实现，可否？

追问

我用的是VB6.0，不知道2008的能不能用

追答

vb2008的代码不能在6.0上运行。那你是否需要vb2008的代码？