计算实足年龄c语言程序,用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 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

试一下吧，不知是不是你想要的。

全部