分を●時間●分のような文字列で取得する関数

Function ConvertMinutesToTimeString(minutes As Long) As String
    Dim hours As Long
    Dim remainderMinutes As Long
    
    ' 分を時間と分に変換
    hours = minutes \ 60
    remainderMinutes = minutes Mod 60
    
    ' 文字列として結合
    ConvertMinutesToTimeString = hours & "時間" & remainderMinutes & "分"
End Function