おぺら ぷらす あるふぁ。

会社で依頼を受けたので、ぐぐってみたら参考になりそうなページを見つけた。

■Mactopia Japan : Excel Solution - データの変換や日付の計算に、各種の関数を活用する
http://www.microsoft.com/japan/mac/officesolution/xlsolution/11.mspx

で、下記のような計算式に。

=DATE(YEAR(TODAY()),A1,(7-WEEKDAY(DATE(YEAR(TODAY()),A1,1),3))+(C1-1)*7)

A1に月、C1に第○日曜日かを入れると、その日付が出てくる。
テストブックを添付してみたので、参考に。
weekdaytest.xls

ちなみに、第6日曜日とかにすると、次の月の日曜日が出てきますよ。

---
追記(2007/10/02 11:43)

でもって、月～日曜日まで対応してみた。
年は端末の設定日時の年を取得してくるようになってるので、必要ならToday()の部分を適宜変更してくらはい。
weekdaytest2.xls

計算式は以下の通り。

=DATE(YEAR(TODAY()),A1,(1-WEEKDAY(DATE(YEAR(TODAY()),A1,1),3))+(C1-1)*7)
=DATE(YEAR(TODAY()),A2,(2-WEEKDAY(DATE(YEAR(TODAY()),A2,1),3))+(C2-1)*7)
=DATE(YEAR(TODAY()),A3,(3-WEEKDAY(DATE(YEAR(TODAY()),A3,1),3))+(C3-1)*7)
=DATE(YEAR(TODAY()),A4,(4-WEEKDAY(DATE(YEAR(TODAY()),A4,1),3))+(C4-1)*7)
=DATE(YEAR(TODAY()),A5,(5-WEEKDAY(DATE(YEAR(TODAY()),A5,1),3))+(C5-1)*7)
=DATE(YEAR(TODAY()),A6,(6-WEEKDAY(DATE(YEAR(TODAY()),A6,1),3))+(C6-1)*7)
=DATE(YEAR(TODAY()),A7,(7-WEEKDAY(DATE(YEAR(TODAY()),A7,1),3))+(C7-1)*7)

なぜか縦にドラッグする時だけ1、2、3、と続いてコピーされないし、貼り付けオプションが出ないなぁ、、と思って困っていたら、何のことない、オートフィルタがかかってました。
なるほど。
だから横にドラッグでコピーした時にはちゃんと出来たわけか。

■Excel
例えば、A1に誕生日を入力しておく。
で、年齢を入れたいセルに以下の計算式を入力する。

=IF(A1<>"",DATEDIF(A1,TODAY(),"y"),"")

すると、今日の時点での年齢が分かる、と。

計算式の解説をすると、
=IF(開始日<>"",DATEDIF(開始日,終了日,期間の単位),"")

つまり、「開始日が空白であった場合は、空白にしなさい。そうでない場合は、開始日から終了日の期間の単位に対する期日を求めなさい」ということになる感じ。

分かりにくいかもしれんけど、やってみたら分かると思われ。
そして意外と便利。


■Access
誕生日の入っているボックスの名前は「誕生日」にしておくこと。

=DateDiff("yyyy",[誕生日],Now())+Int(Format(Now(),"mmdd")<Format([誕生日],"mmdd"))