用VBA代码编写计算实足年龄的窗体编程
'窗体中一个command按钮和一个text1文本框
Private Sub Command1_Click()
On Error GoTo err1
Dim tempdate As Date
tempdate = CDate(Text1。 Text) '把文本框中的字符转为日期格式,进行验证日期格式
If CDate(Text1。Text) > Date Then '输入日期大于当前日期
MsgBox "输入日期大于当前日期!"
Exit Sub
Else
If Month(CDate(Text1。 Text)) > Month(Date) Then '输入月份大于等于当前月份
If...全部
'窗体中一个command按钮和一个text1文本框
Private Sub Command1_Click()
On Error GoTo err1
Dim tempdate As Date
tempdate = CDate(Text1。
Text) '把文本框中的字符转为日期格式,进行验证日期格式
If CDate(Text1。Text) > Date Then '输入日期大于当前日期
MsgBox "输入日期大于当前日期!"
Exit Sub
Else
If Month(CDate(Text1。
Text)) > Month(Date) Then '输入月份大于等于当前月份
If Day(CDate(Text1。Text)) > Day(Date) Then '输入日期大于当前日期
MsgBox "年龄:" & Year(Date) - Year(CDate(Text1。
Text))
Else '输入日期小于当前日期
Dim nl As Integer
nl = Year(Date) - Year(CDate(Text1。
Text)) - 1 '年龄
If nl >= 0 Then
MsgBox "年龄:" & nl
Else
MsgBox "年龄:0"
End If
End If
Else '输入月份小于当前月份
MsgBox "年龄:" & Year(Date) - Year(CDate(Text1。
Text))
End If
End If
err1:
If err。Number = "13" Then
MsgBox "日期格式错误!"
Exit Sub
End If
End Sub
试一下吧,不知是不是你想要的。
收起