access2000で年齢や易の生まれ星を表示する

accessでクエリを使って生年月日から年齢を計算する
年齢: IIf(Format([生年月日],”mm/dd”)>Format(Date(),”mm/dd”),DateDiff(“yyyy”,[生年月日],Date())-1,DateDiff(“yyyy”,[生年月日],Date()))
生年月日から易の生まれ星を計算する
星1: 9-((Year([生年月日])+7) Mod 9)
易の年度切り替えは節分です。これでは次の年の1月2月2日までの生まれの方は生まれ星が違ってしまいます。
そこで、節分を基準日として正確な生まれ星を生年月日から計算します。
基準日をクエリに作成
基準日: Format(“2000/2/3″,”yyyy/mm/dd”)
基準日より前の人は前年の人と同じ生まれ星にするため、+1とします。
星: IIf(Format([生年月日],”mm/dd”) < Format([基準日],"mm/dd"),[星1]+1,[星1]) これでは九紫火星の節分前生まれの人が1白水星にならなければいけないのが10の表示になるのがご愛嬌ですが、まあまあ良しとします。