Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7214 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【40508】その月の末日を調べたい Tamurasine 06/7/15(土) 11:58 質問[未読]
【40509】Re:その月の末日を調べたい かみちゃん 06/7/15(土) 12:23 回答[未読]
【40510】Re:その月の末日を調べたい かみちゃん 06/7/15(土) 12:32 発言[未読]
【40513】Re:その月の末日を調べたい Tamurasine 06/7/15(土) 13:02 お礼[未読]
【40508】その月の末日を調べたい
質問  Tamurasine  - 06/7/15(土) 11:58 -
引用なし
パスワード
   タイトルの通りなのですが

2・4・6・9・11月は末日が31日ではない月ですよね
2月に関しては閏年で変わります。

年と月を指定してその末日を割り出すことはできないでしょうか？

よろしくお願いいたします
【40509】Re:その月の末日を調べたい
回答  かみちゃん  - 06/7/15(土) 12:23 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>年と月を指定してその末日を割り出す

Sub Macro11()
　Dim intYYYY As Integer
　Dim intMM As Integer
　
　'年
　intYYYY = 2006
　'月
　intMM = 2
　MsgBox "月末日=" & DateSerial(intYYYY, intMM + 1, 0)
End Sub
【40510】Re:その月の末日を調べたい
発言  かみちゃん  - 06/7/15(土) 12:32 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>>年と月を指定してその末日を割り出す

[#19546]の過去ログも参考にしてみてください。
【40513】Re:その月の末日を調べたい
お礼  Tamurasine  - 06/7/15(土) 13:02 -
引用なし
パスワード
   ありがとうございます！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7214 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free