【VBA】年齢を算出する

VBAコード

Option Explicit

Sub sample()
    
    Dim todayYyyyMmDd As String
    Dim birthday As String
    Dim age As Integer
    
    '生年月日をyyyyMMdd形式で設定
    birthday = "19960825"
    
    '本日日付をyyyyMMdd形式で取得
    todayYyyyMmDd = Format(Now, "yyyyMMdd")
    
    '生年月日と本日日付から年齢を算出
    age = Int((todayYyyyMmDd - birthday) / 10000)
    
    MsgBox "あなたは" & age & "歳です！"
    
End Sub

実行結果

年齢を算出できました。

参考①

予定日までのカウントダウン日数を算出することもできます。

詳細は以下の記事をご確認ください。

参考②

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●Now関数

●Format関数

●Int関数