使用函数在SSRS中将秒转换为HH：MM：SS

Question

我有一个函数，它正在努力将秒转换为HH：MM：SS在SSRS中。这需要工作超过86400秒，即总时间可能大于24小时。下面的这个函数现在返回奇怪的值，如00：00：.2或00:00:75

Public Function ConvertSecondsToHourMinSec(ByVal intTotalSeconds) As String
Dim hours As String =INT(intTotalSeconds/3600)
If Len(hours) < 2 Then
    hours = RIGHT(("0" & hours), 2)
End If
Dim mins As String = RIGHT("0" & INT((intTotalSeconds MOD 3600)/60), 2)
Dim secs AS String = RIGHT("0" & ((intTotalSeconds MOD 3600) MOD 60), 2)

ConvertSecondsToHourMinSec = hours & ":" & mins & ":" & secs

End Function

例如，传递此函数值227.16666给出00:03:67。

我知道如何修复此功能以正确地给予HH：MM：SS？

Answer 1

意识到我没有将秒转换为底部的INT。现在运作良好。