Excel VBA質問箱 IV

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

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


24988 / 76732 ←次へ | 前へ→

【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
1 hits

【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 お礼

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