Добавьте следующий код в ваш отчет
Public Dim hours As Integer
Public Dim minutes As Integer
Public Dim seconds As Integer
Public Function sumTime( ByVal s As String) As String
Dim substrings() As String = s.Split(":")
hours = hours + Cint(substrings(0))
minutes = minutes + Cint(substrings(1))
seconds = seconds + Cint(substrings(2))
minutes = minutes + (Math.floor(seconds / 60))
seconds = seconds mod 60
hours = hours + (Math.floor(minutes / 60))
minutes = minutes mod 60
Return s
End Function
Функция принимает в качестве параметра строку времени, разбивает ее на часы, минуты и секунды и создает итоговое значение для каждого из них.
Вы можете вызвать функцию, вставив следующее выражение (изображение: синий цвет шрифта)
= Code.sumTime(Fields!time1.Value)
Для общего количества (изображение: зеленый цвет шрифта) вы можете использовать выражение типа
= Cstr(Code.hours) & ":" & Right("0" & Cstr(Code.minutes),2) & ":" & Right("0" & Cstr(Code.seconds),2)
![enter image description here](https://i.stack.imgur.com/gxc5Z.png)
![enter image description here](https://i.stack.imgur.com/neDO4.png)