VBAに追加する最初の週の日付

Question

テーブルとvbaフォームのテキストボックスに自動的に現在の週の最初の日付を追加する必要があります。任意の機能が利用可能な場合誰でも助けることができますか？

Answer 1

monday = DateAdd("d", 1 - Weekday(Date, vbMonday), Date) 

Answer 2

使用

DateAdd("d", Weekday(Date(), 3) * -1, Date()) 

Answer 3

私はあなたがVBAを言った知っているが、ここでは、AccessデータベースエンジンSQLで行うことができる方法だと作品「スタンドアロン」すなわちアクセスやコースのVBA（、ロジックを必要としません）VBAに変換することができます：日曜日から始まる

ウィーク：

SELECT DATEADD('WW', DATEDIFF('WW', #1990-01-07 00:00:00#, NOW()), #1990-01-07 00:00:00#) 

：日曜日に実行した場合、現在の日付を返します。日曜日から始まる10

ウィーク：

SELECT DATEADD('D', (DATEDIFF('D', #1990-01-08 00:00:00#, NOW()) \ 7) * 7, #1990-01-07 00:00:00#) 

ヒント：1990-01-07 00:00:00は日曜日であることが知られ、任意の日付である日曜日に実行する場合は、前の日曜日を返します。