VBA　生年月日から年齢を自動計算

 

 

生年月日から年齢を自動計算する

 

Sub test()
    '年齢自動計算
    
    Dim xlBirthD As Variant  '誕生日
    Dim xlAge As Variant      '年齢
    

    xlBirthD = InputBox("生年月日を入力してください。「yyyy/mm/dd」西暦8桁形式")


    If IsDate(xlBirthD) Then
            xlAge = DateDiff("yyyy", xlBirthD, Date) _
                        + (Format(xlBirthD, "mmdd") _
                            > Format(Date, "mmdd"))
                            
            MsgBox xlAge & "歳です。", vbInformation
    Else
            MsgBox "入力形式が違います。", 16

    End If


End Sub

 

 

実行結果

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事