It looks like you are trying to sum time spans, and unless I have overlooked something in the past few years there is no function available to do it in CR. try below, you may have to tweak it.
Dim lMinAs number
Dim LHour As number
Dim sTime As String
Dim lSecAs number
dim sHour as string
dim sMinas string
dim sSecas string
dim param as number
param = Sum ({yourFieldToSum})
lSec = tonumber(Mid(cstr(param), InStr(cstr(param), "."

+ 1, Len(cstr(param)))) * .60
lMin = tonumber(Left(cstr(param), InStr(cstr(param), "."

- 1))
If lMin > 59 Then
LHour = (lMin / 60)
lMin = lMin Mod 60
else
lHour = 0
End If
sHour = totext(left(cstr(LHour),InStr(cstr(LHour),"."

-1))
if len(sHour) < 2 then
sHour = "0" + sHour
end if
sMin = totext(left(cstr(lMin),InStr(cstr(lMin),"."

-1))
if len(sMin) < 2 then
sMin = "0" + sMin
end if
sSec = totext(left(cstr(lSec),InStr(cstr(lSec),"."

-1))
if len(sSec) < 2 then
sSec = "0" + sSec
end if
formula = totext(sHour + ":" + sMin + ":" + sSec)