[求助]计算年龄的代码哪步出错了
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 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
2006-01-09 19:23
2006-01-09 19:29
2006-01-09 21:21