Ｐａｇｅ 602 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼4月1日を含む週を第 1 週として週を求めたい もずくん 04/4/23(金) 12:37 ┗Re:4月1日を含む週を第 1 週として週を求めたい クロ 04/4/23(金) 15:20 ┗Re:4月1日を含む週を第 1 週として週を求めたい もずくん 04/4/23(金) 16:50 ┗Re:4月1日を含む週を第 1 週として週を求めたい もずくん 04/4/23(金) 17:16 ┗Re:4月1日を含む週を第 1 週として週を求めたい クロ 04/4/23(金) 17:55 ─────────────────────────────────────── ■題名 ： 4月1日を含む週を第 1 週として週を求めたい ■名前 ： もずくん ■日付 ： 04/4/23(金) 12:37 -------------------------------------------------------------------------
| ある日付がその年の第何週目かを求めるとき、会計年度のスタートである4月1日を含む週を第一週としてカウントしたいのです。DatePartじゃできないようなのですが・・。困ってます。どなたか回答宜しくお願いします。 |
| 4月1日より先日付のみですが... DatePart("ww", 調べたい日付) - (DatePart("ww", "04/01/2004") - 1) で出来ませんか？ |
| クロさん さっそくご返答ありがとうございます。でも・・、4月以前の部分(1月〜3月)で悩んでるので、この計算だと意味がないんです。 |
| 回答が見つかりました。別のサイトで回答をいただくことができました。なんだか難しいロジックですが、うまくいきそうですのでこちらは終了させていただきます。クロさん、ありがとうございました。 |
| マルチだったんですか...ハァ... 一応、こんなんでどうでしょうか？ Dim ipt As String Dim defD As String Dim defD2 As String '基準日付 defD = Format(Date, "yyyy") & "/04/01" '基準日付年の最終日付 defD2 = Format(Date, "yyyy") & "/12/31" ipt = InputBox("調べたい日付を入力", "") If CDate(ipt) >= CDate(defD2) Then MsgBox DatePart("ww", defD2) - (DatePart("ww", defD) - 1) + DatePart("ww", ipt) & "週目です。" Else MsgBox DatePart("ww", ipt) - (DatePart("ww", defD) - 1) & "週目です。" End If |