Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4379 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん、ひげくま さん：

ありがとうございました。
思った通りの結果が得られました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4379 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free