Datediff 正確な年齢を求める方法

VBAでフォームを作成しています。
本通りにＤａｔｅｄｉｆｆを入力したのですが、確実な年齢がでてきません。
どうすれば宜しいですか？教えて頂けたらと思います。

ちなみにプロシージャは・・・
Privaｔｅ Sub Text生年月日_AfterUpdate()
Texr年齢.Value=Datediff("yyyy",Text生年月日.Value,Now())
よろしくお願いします。
　

No.2 ベストアンサー 回答者： nao-y 回答日時： 2012/05/24 12:31

#1です。

すみません、Datediff関数を理解していませんでした。
第一引数にyyyyを指定すると単純に年差を出すようですね。

つまり、誕生日がきてなくてもその年の12月31日時点での
満年齢が返されるということですね。

誕生日が来る前までは前年の年齢にしたいということであれば、
日数でDatediffを求めて、365で割ってやればいいと思います。
具体的には
Texr年齢.Value=Datediff("d",Text生年月日.Value,Now()) \ 365
で良いかと。

この回答へのお礼

ありがとうございました。思っているとおりにできました。
説明不足もあり申し訳ございませんでした。

お礼日時：2012/05/24 13:53

No.1 回答者： nao-y 回答日時： 2012/05/24 12:21

>確実な年齢がでてきません。

とのことですが、何かエラーが出るのでしょうか？
それとも年齢とは異なる数字が出てくるのでしょうか？

Text生年月日.Valueの値はDate型ですか？
文章から見るとString型のような気がしますが…。

この回答へのお礼

ありがとうございました

お礼日時：2012/05/24 13:53