Access VBA DateDiff関数

質問

こんにちは。Access VBA初心者です。
誕生年月日と指定年月日で年齢を算出したいのですが、
DateDiff関数を使用して年齢を算出できるものなのでしょうか？

誕生年月日には"19691121"
指定年月日には"20070901"
とあった場合、年齢が　37
と算出出来るように計算させたいのですが、

どうぞよろしくお願いいたします。

回答No.1

ぜ り～（@-Jelly-） · ベストアンサー

今年の誕生日を過ぎていないなら、１をマイナスすれば年齢を計算できます。

If format(誕生日,"MMDD") >= format(Day,"MMDD") then
　　age = DateDiff("YYYY",誕生日,Date) -1
else
　　age = DateDiff("YYYY",誕生日,Date)
end if

お礼

お礼が遅くなり申し訳ありません。
無事作成できました。
ありがとうございました。

回答No.2

noname#140971

[イミディエイト]
? GetAge("2004/02/29", "2005/02/28")
1

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

問題は、この関数が正しいかどうかですね。

http://www.uoffice.net/apl/nenrei.htm

とは一致するんですが、自信はありません。

お礼

お礼が遅くなり申し訳ありません。
ご丁寧な回答ありがとうございました。