Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
60418 / 76732 ←次へ　｜　前へ→
【20953】Re:フォルダー（該当月21日〜翌月20日サイクル）のファイル作成について
回答  Asaki  - 04/12/28(火) 9:32 -
引用なし
パスワード
   コメント付けてみます。

'今日の日にちが21日以降なら翌月を計算
If Day(dt1) > 20 Then
　　'ひと月加算した日付をdt2に代入
　　dt2 = DateSerial(Year(dt1), Month(dt1) + 1, Day(dt1))
　　'今日の日にちと、ひと月後の日にちが違っていれば、更に次の月になっているので補正
　　'-- Day(dt1) <> Day(dt2) 成立時はLong型に変換すると -1/ 不成立で 0 となることを利用
　　dt2 = DateSerial(Year(dt2), Month(dt2) + CLng(Day(dt1) <> Day(dt2)), Day(dt2))
End If

ひと月後のほうは、日にちは利用しないため、単純に1日を利用して
If Day(dt1) > 20 Then
　　dt2 = DateSerial(Year(dt1), Month(dt1) + 1, 1)
End If
でも充分ですね。
0 hits
▼ 【20830】フォルダー（該当月21日〜翌月20日サイクル）のファイル作成について YN61 04/12/21(火) 19:12 質問
【20832】Re:フォルダー（該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 20:32 回答
【20833】Re:フォルダー（該当月21日〜翌月20日サイ... Hirofumi 04/12/21(火) 20:37 回答
【20836】Re:フォルダー（該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 21:25 回答
【20837】Re:フォルダー（該当月21日〜翌月20日サイ... Asaki 04/12/21(火) 21:49 発言
【20838】Re:フォルダー（該当月21日〜翌月20日サイ... YN61 04/12/21(火) 22:39 質問
【20840】Re:フォルダー（該当月21日〜翌月20日サイ... YN61 04/12/21(火) 23:41 質問
【20841】Re:フォルダー（該当月21日〜翌月20日サイ... かみちゃん 04/12/22(水) 0:30 発言
【20842】Re:フォルダー（該当月21日〜翌月20日サイ... YN61 04/12/22(水) 7:16 質問
【20843】Re:フォルダー（該当月21日〜翌月20日サイ... Asaki 04/12/22(水) 9:20 回答
【20851】Re:フォルダー（該当月21日〜翌月20日サイ... YN61 04/12/22(水) 19:29 お礼
【20906】Re:フォルダー（該当月21日〜翌月20日サイ... Asaki 04/12/24(金) 9:45 回答
【20939】Re:フォルダー（該当月21日〜翌月20日サイ... YN61 04/12/26(日) 20:52 質問
【20943】Re:フォルダー（該当月21日〜翌月20日サイ... Asaki 04/12/27(月) 10:00 回答
【20951】Re:フォルダー（該当月21日〜翌月20日サイ... YN61 04/12/27(月) 20:00 お礼
【20953】Re:フォルダー（該当月21日〜翌月20日サイ... Asaki 04/12/28(火) 9:32 回答≪
【20959】Re:フォルダー（該当月21日〜翌月20日サイ... YN61 04/12/28(火) 21:02 お礼
【20969】Re:フォルダー（該当月21日〜翌月20日サイ... Asaki 04/12/29(水) 11:11 発言
【21135】Re:フォルダー（該当月21日〜翌月20日サイ... YN61 05/1/12(水) 18:31 質問
【21144】Re:フォルダー（該当月21日〜翌月20日サイ... かみちゃん 05/1/13(木) 6:44 回答
【21178】Re:フォルダー（該当月21日〜翌月20日サイ... YN61 05/1/13(木) 20:48 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
60418 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free