【VBA】年齢を算出する

VBAで
 ・年齢を算出
できます!

年齢は
 ・生年月日
 ・本日日付

の2つから算出できます!

VBA関数である
 ・Now関数
 ・Format関数
 ・Int関数
により実現できます!

PR

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

10行目の変数「birthday」に生年月日をyyyyMMdd形式で設定します(10行目)。

Now関数で「本日日付」を取得します(13行目)。

Format関数で「本日日付」を「yyyyMMdd形式」にします(13行目)。

Int関数で「整数部分のみ」を取得します(16行目)。

PR

実行結果

年齢を算出できました。

実行結果
実行結果
PR

参考①

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

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

PR

参考②

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

●Now関数


●Format関数


●Int関数

タイトルとURLをコピーしました