求教VB编程题
答案:1 悬赏:10
解决时间 2021-01-22 22:01
- 提问者网友：疯子也有疯子的情调
- 2021-01-22 17:56
求教VB编程题
最佳答案
- 二级知识专家网友：北方的南先生
- 2021-01-22 18:41
Private Sub Command1_Click()
Dim a()
a = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
date1 = InputBox("请输入日期YYYY-MM-DD：")
y = Val(date1)
m = Val(Mid(date1, 6))
d = Val(Right(date1, 2))
If y Mod 4 = 0 And y Mod 100 > 0 Or y Mod 400 = 0 Then a(2) = 29
If y >= 1900 And y <= 3000 And m > 0 And m < 13 And d > 0 And d <= a(m) Then
MsgBox (date1 & "是一个合法日期")
Else
MsgBox (date1 & "不是一个合法日期")
End If
End Sub
Dim a()
a = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
date1 = InputBox("请输入日期YYYY-MM-DD：")
y = Val(date1)
m = Val(Mid(date1, 6))
d = Val(Right(date1, 2))
If y Mod 4 = 0 And y Mod 100 > 0 Or y Mod 400 = 0 Then a(2) = 29
If y >= 1900 And y <= 3000 And m > 0 And m < 13 And d > 0 And d <= a(m) Then
MsgBox (date1 & "是一个合法日期")
Else
MsgBox (date1 & "不是一个合法日期")
End If
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯