accessで日付から年度の開始日と終了日を自動表示したい

質問

Access2000を使っています。

「今日の日付」（=Date()を使い自動表示しています）というエリアの日付を基に、年度の開始日と終了日を自動表示したいのです。

例えば

「今日の日付」が2008/3/29　だったら

　「開始日」に　2007/04/01
　「終了日」に　2008/03/31

「今日の日付」が2008/4/3　だったら

　「開始日」に　2008/04/01
　「終了日」に　2009/03/31

環境は、Access2000、winXPです。どなたかよい方法をご存知の方、回答よろしくお願いします。

回答No.1

cocyan · ベストアンサー

Dim Nendo as date

'***** 始めに開始日を決める ****

'・・・ 当日の処理日を取り込む　　　　　　　　　
Nendo = date
'・・・ 当日の月が４月より小さければ、１年前にする
if Month(Nendo) < 4 then Nendo = DateAdd("yyyy",-1,Nendo)
'・・・ 開始日を画面セット
Me!開始日 = Year(Nendo) & "/04/01"

'***** 終了日は、開始日に１年加算する ****
Nendo = DateAdd("yyyy",1,Nendo)
'・・・ 終了日を画面セット
Me!終了日 = Year(Nendo) & "/03/31"

これで開始日と終了日が求まります。

お礼

回答ありがとうございました。

関数のみで解決したかったので、cocyanさんのヒントを元に下記の関数で解決しました。

[日付] (=date())
[いつから] (開始日)
[いつまで] (終了日)

開始日
=Year(DateAdd("m",-3,[日付])) & "/04/01"
終了日
=Year([いつから])+1 & "/03/31"

とても良いヒントをいただきました。感謝です！