次の計算を教えて下さい

質問

エクセルで日数計算をする方法を教えて下さい。

計算結果で　

　　　　　　月　　　　　　　　　　日
Ａ１　　　８ヶ月　　　　B1　　　　９日
Ａ２　　　３ヶ月　　　　B２　　　２５日
Ａ３　　　６ヶ月　　　　Ｂ３　　　１０日
Ａ４　１年５ヶ月　　　　　１ヶ月14日　合計
　　　　　　　　　　　　　　　　　　※日の計算は、２８・２９・３０・３１日ありますが３０日で計算します。
と合計の結果が出た場合

Ａ５　１年６ヶ月14日　←　１年５ヶ月＋１ヶ月１４日＝１年６ヶ月１４日

このように　「１年６ヶ月１４日」と計算ができる式を教えて下さい。
よろしくお願いします。

回答No.8

30246kiku

関数を作成した方が処理しやすかと思います。
各入力されているのは文字列だとして、また、１ヶ月は３０日固定解釈だとして

Ａ４に、=CalcDay(A1:A3)
Ｂ４に、=CalcDay(B1:B3)
Ａ５に、=CalcDay(A4:B4)　もしくは　=CalcDay(A1:B3)

とすると、見た目できたような気がすると思います。
以下記述を標準モジュールに転記します。

Public Function CalcDay(rng As Range) As String
　　Dim r As Range
　　Dim iAry() As Long
　　Dim vAry As Variant
　　Dim sS As String
　　Dim v As Variant
　　Dim i As Long, j As Long, k As Long

　　vAry = Array( _
　　　　　　　　Array("日", 1, 30, "日"), _
　　　　　　　　Array("月", 2, 12, "ヶ月"), _
　　　　　　　　Array("年", 3, 10000, "年") _
　　　　　　)

　　If (rng.Count < 2) Then Exit Function
　　ReDim iAry(3, rng.Count - 1)

　　' 数字 → 数値解釈部分
　　k = 0
　　For Each r In rng
　　　　sS = StrConv(r.Value, vbNarrow)
　　　　For i = UBound(vAry) To 0 Step -1
　　　　　　If (Len(sS) = 0) Then Exit For
　　　　　　v = vAry(i)
　　　　　　j = InStr(sS, v(0))
　　　　　　If (j > 0) Then
　　　　　　　　iAry(v(1), k) = Val(sS)
　　　　　　　　sS = Mid(sS, j + 1)
　　　　　　End If
　　　　Next
　　　　k = k + 1
　　Next

　　' 日、月、年 計算部分
　　CalcDay = ""
　　For Each v In vAry
　　　　j = v(1)
　　　　For i = 1 To UBound(iAry, 2)
　　　　　　iAry(j, 0) = iAry(j, 0) + iAry(j, i)
　　　　Next
　　　　iAry(j, 0) = iAry(j, 0) + iAry(j - 1, 1)
　　　　iAry(j, 1) = iAry(j, 0) \ v(2)
　　　　iAry(j, 0) = iAry(j, 0) - iAry(j, 1) * v(2)
　　　　If (iAry(j, 0) > 0) Then
　　　　　　CalcDay = iAry(j, 0) & v(3) & CalcDay
　　　　End If
　　Next
'　　CalcDay = StrConv(CalcDay, vbWide) ' 数字を全角にするならコメントを外す
End Function

※ ソコソコ動くと思いますが、不都合あれば修正してください。