vba:access:month-firstday-lastday
月の最初の日と最後の日を取得する
最初の日
=DateSerial(Year(Date()), Month(Date()), 1)
最終の日
=DateAdd("d",-1,DateSerial(Year(Date()), Month(Date())+1, 1))
フォーム上で期間抽出する場合
テーブルの「日付」フィールドに対するフィルター。
Me.Filter = "日付 >= #" & DateSerial(Year(Date()), Month(Date()), 1) & "# and 日付 <= #" & DateAdd("d",-1,DateSerial(Year(Date()), Month(Date())+1, 1)) & "#"
スポンサーリンク
vba/access/month-firstday-lastday.txt · 最終更新: 2024/04/25 12:22 by Shohei Okuda