■T'sWare Access Tips #050 ～今日が第何四半期かを知るには？～


#050	今日が第何四半期かを知るには？	VBA
今日が第何四半期かは、DatePart関数の一番目の引数に "q" を指定することによって知ることができます。 '次の式では１月１日から第一四半期が始まるものとして値が返されます。 DatePart("q", Date) '年度単位で４月１日からを第一四半期と考える場合には次のようにアレンジします。 DatePart("q", Date) + IIf(Month(Date) >= 4, -1, 3) ※この方法は、クエリー式や、フォーム/レポートのテキストボックスなどのコントロールソースとしても使うことができます。その場合には式の前に "=" を付け、さらに Date() のように後ろにカッコを付ける必要があります。
\| Index \| Prev \| Next \| この情報は参考になりましたか？、問題は解決しましたか？、もしまだなら...... T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件～でご支援します。 Access（アクセス）によるソフト開発ならおまかせください！スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします https://accdev.tsware.jp/