用vb函数解答问题

来源：百度知道 编辑：UC知道 时间：2024/05/31 18:49:28
用函数实现
求一个人的年龄g（设其出生日期数据保存在一个日期变量birth中）
需要用到Date Year等函数。

楼上即可，但修改一下会更好，这样你就能随机输入出生日期了。格式就像1989/02/01这样就好
Private Sub Form_Click()
Dim Birth As Date
Birth = InputBox("请输入出生日期")
Print "今年" & DateDiff("yyyy", Birth, Date) & "岁"
End Sub

Private Sub Form_Load()
Dim birth As Date
birth = #1/23/1988#
MsgBox DateDiff("yyyy", birth, Date)
End Sub