Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4366 / 13644 ツリー ←次へ | 前へ→

【57088】今月の最終水曜日 ボビー 08/7/23(水) 13:05 質問[未読]
【57089】Re:今月の最終水曜日 Blue 08/7/23(水) 13:18 回答[未読]
【57092】Re:今月の最終水曜日 ボビー 08/7/23(水) 14:22 お礼[未読]
【57090】Re:今月の最終水曜日 ひげくま 08/7/23(水) 14:10 発言[未読]
【57091】Re:今月の最終水曜日 ボビー 08/7/23(水) 14:20 回答[未読]
【57104】Re:今月の最終水曜日 ボビー 08/7/24(木) 17:02 お礼[未読]

【57088】今月の最終水曜日
質問  ボビー  - 08/7/23(水) 13:05 -

引用なし
パスワード
   いつも参考にさせて頂いております。

その月の最終水曜日を取得したいのですが…
(例えば、今月でいえば7/30を取得したい)

検索にて似たようなものを試してみたのですが、私の理解不足もあり
上手く行きませんでした。
宜しくお願い致します。

【57089】Re:今月の最終水曜日
回答  Blue  - 08/7/23(水) 13:18 -

引用なし
パスワード
   とりあえずおもいついた方法。

  Dim d As Date
  Dim n As Date
  Dim diff As Integer
  
  n = Date
  
  d = DateSerial(Year(n), Month(n) + 1, 1) - 1
  diff = Weekday(d) - vbWednesday
  If diff < 0 Then
    diff = diff + 7
  End If
  d = d - diff
  MsgBox d

【57090】Re:今月の最終水曜日
発言  ひげくま  - 08/7/23(水) 14:10 -

引用なし
パスワード
   ▼ボビー さん:
>その月の最終水曜日を取得したいのですが…

1)その月の最終日を取得できますか?
2)その日の曜日を取得できますか?

【57091】Re:今月の最終水曜日
回答  ボビー  - 08/7/23(水) 14:20 -

引用なし
パスワード
   ▼ひげくま さん:

>1)その月の最終日を取得できますか?
  → DateSerialを使えば何とか

>2)その日の曜日を取得できますか?
  → DateSerialで取得した日付をWeekday(?)で可能かと…

【57092】Re:今月の最終水曜日
お礼  ボビー  - 08/7/23(水) 14:22 -

引用なし
パスワード
   ▼Blue さん:

ありがとうございます。
デバックしながら動かしてみると、何をどうやって算出しているか
良くわかりました。

【57104】Re:今月の最終水曜日
お礼  ボビー  - 08/7/24(木) 17:02 -

引用なし
パスワード
   ▼Blue さん、ひげくま さん:

ありがとうございました。
思った通りの結果が得られました。

4366 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free