#050
今日が第何四半期かは、DatePart関数 の一番目の引数に "q" を指定することによって知ることができます。
'次の式では１月１日から第一四半期が始まるものとして値が返されます。
DatePart("q", Date)
'年度単位で４月１日からを第一四半期と考える場合には次のようにアレンジします。
DatePart("q", Date) + IIf(Month(Date) >= 4, -1, 3)
DatePart("q", Date)
'年度単位で４月１日からを第一四半期と考える場合には次のようにアレンジします。
DatePart("q", Date) + IIf(Month(Date) >= 4, -1, 3)
※この方法は、クエリー式や、フォーム/レポートのテキストボックスなどのコントロールソースとしても使うことができます。その場合には式の前に "=" を付け、さらに Date() のように後ろにカッコを付ける必要があります。
