#050 今日が第何四半期かを知るには? VBA

今日が第何四半期かは、DatePart関数 の一番目の引数に "q" を指定することによって知ることができます。
'次の式では1月1日から第一四半期が始まるものとして値が返されます。
DatePart("q", Date)

'年度単位で4月1日からを第一四半期と考える場合には次のようにアレンジします。
DatePart("q", Date) + IIf(Month(Date) >= 4, -1, 3)




※この方法は、クエリー式や、フォーム/レポートのテキストボックスなどのコントロールソースとしても使うことができます。その場合には式の前に "=" を付け、さらに Date() のように後ろにカッコを付ける必要があります。
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved