Access Tips
#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'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved