Option Explicit

Function yourage(birthday As Data) As Integer
yourage = (Now - birthday) \ 365
End Function
Private Sub Form_load()
Dim intage As Integer
intage = yourage(#10/26/1982#)
Print intage
End Sub

编译错误为：内型不匹配

Option Explicit

Function yourage(birthday As Date) As Integer
yourage = (Now - birthday) \ 365
End Function


Private Sub Command1_Click()
Dim intage As Integer
intage = yourage(#10/26/1982#)
Print intage
End Sub

谢谢
我不date 写成data了
晕了