月数で期間計算 (ID:119715)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じでしょうか？ Function GetMonthDiff(dtStart As Date, dtEnd As Date) As Single Dim nDay As Integer Dim nMonthSpan As Integer Dim nDaySpan As Integer '終了日の月の日数 nDay = Day(DateSerial(Year(dtEnd), Month(dtEnd) + 1, 0)) ' 開始日、終了日の月数差を計算する(整数部分) nMonthSpan = DateDiff("m", dtStart, dtEnd) ' 開始日、終了日の日数差を計算する(小数部分) nDaySpan = DateDiff("d", DateAdd("d", -1, DateAdd("m", nMonthSpan, dtStart)), dtEnd) GetMonthDiff = nMonthSpan + nDaySpan / nDay End Function