Excel / Access 関数及びVBAにて年齢の算出

質問

Excel または Accessで、
日付（西暦）から現在の年齢を返してくれる関数はありますでしょうか？（VBAも可）
例：A1セルに1980/1/1と入力
　→ある式（関数）が埋め込まれたB1セルに27と表示される

または一発でなくても簡単に年齢を返してくれる方法をご存知の方、よろしくお願いします。

※本日午前中に別の質問をさせていただきましたが、
　そちらを締め切る前に再度質問させていただくこと、
　マナー違反かもしれませんがお許し下さい。

回答No.1

grumpy_the_dwarf · ベストアンサー

Excelのdatedif関数ですね。

=datedif(誕生日, today(), "Y")
で今日現在の満年齢が出ます。第3パラメータのバリエーションにつ
いてはヘルプを参照して下さい。

お礼

ご回答、ありがとうございます。

なるほど、これならばVBAを使用せずにセルに埋め込めますね。
大変助かりました。

回答No.3

noname#140971

補足：
[イミディエイト]
? GetAge("1949/05/01", "2007/04/30")
58

お礼

ご回答、ありがとうございます。

VBAで実現するにはこういうった方法があるんですね。
大変参考になりました！

回答No.2

noname#140971

[イミディエイト]
? GetAge("1949/05/01", "2007/04/13")
57

Public Function GetAge(ByVal Birthday As Date, ByVal Hiduke As Date) As Integer
　　GetAge = DateDiff("yyyy", Birthday, Hiduke) + _
　　　　　　　　(Format(Birthday - 1, "mm/dd") > Format(Hiduke, "mm/dd"))
End Function

私は、こんな関数を用いています。