Private Function 年齢計算(生年月日 As String, 年齢計算日 As String) As String
If Format(生年月日, "mmdd") > Format(年齢計算日, "mmdd") Then
年齢計算 = DateDiff("yyyy", 生年月日, 年齢計算日) - 1
Else
年齢計算 = DateDiff("yyyy", 生年月日, 年齢計算日)
End If
End Function