![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAで
・年齢を算出
できます!
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
年齢は
・生年月日
・本日日付
の2つから算出できます!
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBA関数である
・Now関数
・Format関数
・Int関数
により実現できます!
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
実行結果
年齢を算出できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2021/02/vba_calcage_001.png)
参考①
予定日までのカウントダウン日数を算出することもできます。
詳細は以下の記事をご確認ください。
参考②
上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。
●Now関数
●Format関数
●Int関数