Excel VBA 質問スレ Part66at TECHExcel VBA 質問スレ Part66 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト250:デフォルトの名無しさん 20/05/24 15:25:32 ZTIdhNvp.net >>230 説明がよくわからない。 サンプルを用意するなど、読み手にわかりやすい工夫をすること。 （期間が複数あってよくわからん、期間の基準が上中下旬なのか2023/2/12みたいな細かい日付もあるのか、 「この期間のセル数に」とか、36「マス」とか。 自分で作ったような言葉を、相手はまず理解できないと思うこと。） 最大限理解しようとして作ってみた。 https://i.imgur.com/aYLnniP.png https://i.imgur.com/Edwp9qW.png 251:デフォルトの名無しさん 20/05/24 17:31:52 aHD8sbyt.net >>230 ひと月を3分割って、微妙に面倒だったりするね 質問は期間の求め方なので、こんな感じでいいと思う 簡単な流れは、月の差-1を出して*3し、開始と終了の日-1を10で割って半端な分を補正する感じ 計算上、初回分も算入する必要がある事に注意(例えば、 5/24 ～ 5/24 の場合、単純に引くと0 になるから+1する必要がある) あと、月の上中下旬単位でのみ考える(2/12 は2/20と同等に扱う) Function kikan(date1 As Date, date2 As Date) As Integer Dim res As Integer res = DateDiff("m", date1, date2) - 1 'VBAでは単純な月の差なのでDay(開始日)>Day(終了日) となる場合を気にしなくていい If res < 0 Then '同じ月 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch