ACCESS２０００での年齢計算（数え）

質問

こんにちは。お寺関係で仕事してます。

テキストボックスに生年月日を入力すると、
隣のテキストボックスに行年齢（数え歳）が
自動的に数値として入力されるようにしたい
のですが、どうしたらいいでしょうか。

満年齢と違って、生まれた歳を１才とし
１月１日を迎えると２才になります。
例えば、６月に産まれた子供は、来年の
６月まで０才ですが、行年齢では産まれたとき
１才で、１月１日になると２才になります。
満年齢では８ヶ月であっても、行年齢では
２才になります。

今年で何歳？と聞かれたときに、誕生日が
来ていなければ＋１歳ですが、来ていれば
そのままですよね。誕生日が来ている、
いなに関わらず「今年で＊歳」に＋１歳が
行年齢になります。

何分お寺ですので、どうしても行年齢が
必要なわけです。
初心者ですが、是非教えてください。

回答No.3

Zz_zZ

西暦の４桁は year 関数でも取得できますが、簡単には、

DateDiff("yyyy",Date(),[Birth])+1

で可能です。12/31 と 1/1 の間は 1 ですので、+1 する必要が有ります。

回答No.2

Zz_zZ

(A)　DatePart("yyyy",Date(),4) => 2001
　　　本日の日付け

(B)　[Birth]=1989/01/01 の場合、
　　　DatePart("yyyy",[Birth],4) => 1989

A-B+1 のように出来れば良いような気がしますが...

2001/12/31 生まれでも、2002/01/01 には、二歳になると思います。

回答No.1

millionwalker

数えの方が満年齢よりも簡単な気がするのは勘違いでしょうか？

今日の日付がy年??月??日で、誕生日がx年??月??日なら、数え年はそれぞれの日付に関係なく、y-x+1才ですよね。

計算についてでなく、フォーム上で誕生日が入力されたときにどんなイベントハンドラで処理すればよいか、という質問であれば補足してください。