Excel VBA 質問スレ Part66at TECHExcel VBA 質問スレ Part66 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト252:res = min2((Day(date2) - 1) \ 10, 2) + 1 res = res - min2((Day(date1) - 1) \ 10, 2) Else res = res * 3 res = res + 3 - min2((Day(date1) - 1) \ 10, 2) res = res + 1 + min2((Day(date2) - 1) \ 10, 2) End If kikan = res End Function Function min2(a, b) : min2 = IIf(a < b, a, b) : End Function あと、各(月3分割)の均等割を出すとき、単純に等分した数値を次々加算していくと誤差が出る可能性があるので、その都度かけ算で計算しなおした方がいいよ 253:デフォルトの名無しさん 20/05/24 18:45:45 X8IGI7Pl.net 均等ではなくなることが分かっているのに均等割というのは一体 均等ではないなら分割の明確なルールと呈示するのが先だろうに 254:デフォルトの名無しさん 20/05/24 20:23:46.09 Ij6CWItZ.net select case iDay case 1 to 10 ’上旬 case 11 to 20 ’中旬 case else '下旬 end select こんなんでいいんじゃねーの 255:デフォルトの名無しさん 20/05/24 20:26:51.14 WNKMZrc1.net 理解ができるのがすげぇよ 俺には文章から何がしたいのか分からん 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch