Access クエリ「作業日」フィールドを給料計算のために「21日~翌月20日」単位で集計したい

Question

Accessで勤怠管理用のデータベースを作成しています。日付/時刻型のフィールド「作業日」を、給料計算のために「21日~翌月20日」単位で集計するため、クエリに以下のようなフィールドを作成しました。想定している結果は、以下の通りです、

■想定している規則
・日付が21以上のとき、翌月の1日の日付がはいる　例)2021/01/22 → 2021/02/01
・日付が21未満のとき、当月の1日の日付がはいる　例)2021/01/19 → 2021/01/01

IIf(Format([作業日],"d")>=21,Format(DateSerial(Year([作業日]),Month([作業日])+1,Day([作業日]),"yyyy/mm") & "/01",Format(DateSerial(Year([作業日]),Month([作業日]),Day([作業日])),"yyyy/mm") & "/01")

しかしなぜか、2021/1/29~30を2021/03/01と判定してしまいます。
他の日付だと想定通りに給料計算単位での日付が入力できるのに、なぜこのようになってしまうのでしょうか。
また、どのようにすれば、正しく想定している規則通りに集計できるのでしょうか。

Comments

[yo_u]

２月に２９日や３０日が存在しないのでうまくいっていない気がします。
１月２９日や３０日の
Year([作業日]),Month([作業日])+1,Day([作業日])
がどんな状態なのか確認してみてはどうでしょう。

[ryoya_access]

おっしゃる通りでした。Day([作業日])だけでは確認していたのですが、Year([作業日]),Month([作業日])+1,Day([作業日])で確認してみたところ、「2021/1/29」は「2021/3/1」、「2021/1/30」は「2021/3/2」…となり、「2021/2/1」で再度「2021/3/1」に戻る、といった処理になるようです。解決できそうです、ありがとうございます。

Answer 1

yo_u様のコメントにヒントを頂き、コードを以下のように書き換えたところ、無事動作しました。

作業月21to20: IIf(Format([作業日],"dd")>=21,Format(DateSerial(Year([作業日]),Month([作業日])+1,1),"yyyy/mm/dd"),Format(DateSerial(Year([作業日]),Month([作業日]),1),"yyyy/mm/dd"))

Answer 2

提示の式ではエラーになるので原因は分かりませんが、
そのような仕様なら下記の式でどうですか。

DateSerial(Year([作業日]),Month([作業日])+IIf(Day([作業日])>20,1,0),1)

日付/時刻型ではなくFormatで文字列にしたいのなら、

Format(DateAdd("m",IIf(Day([作業日])>20,1,0),[作業日]),"yyyy/mm/01")