続・頑張れ！ひろたん！

年齢計算

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