第n周の計算 -- ACCESS VBA --




'-------------------------
第n週の計算

テーブルの作成
レコードは第n週のnにあたる、「1」〜「6」を用意。(この1つのフィールドだけ)

クエリの作成
[週]: 上記テーブルのレコードを表示
[1日の曜日数]: CInt(Weekday([.年] & "/" & [月] & "/" & "1"))※[年]と[月]は、フォームで用意する。
[式]: 2-[1日の曜日数]
[始日の予備]: [式]+(([週]-1)*7)
[終日の予備]: [式]+(([週]-1)*7)+6
[末日]: Day(DateSerial(Forms!Fm_ルーム予約_確認表!年,Forms!Fm_ルーム予約_確認表!月+1,1)-1)


始日の計算:
IIF [始日の予備]<1
  正: 1を表示
  負: IIF [始日の予備]>=[末日]
    正: NULLを表示
    負: IIF [始日の予備]を表示

終日の計算:
IIF [終日の予備]<=(末日+6)
  正: IIF [始日の予備]>=[末日]
    正: [末日]を表示
    負: NULLを表示
  負: NULLを表示







トップへ
トップへ
戻る
戻る