如何在RDLC报表中从时分格式计算总时长（含空值处理）

这个问题我之前也遇到过，RDLC对TimeSpan的直接求和支持不太友好，加上你的数据是字符串格式的时分值，直接用TimeSpan.FromTicks(sum(...))肯定行不通——毕竟Fields!TimeDiff.Value是类似9:45的字符串，不是Ticks数值，求和的时候会直接报错。

给你两种靠谱的解决方案，都能兼容空值，最终输出30:47这种格式：

方法一：纯报表表达式（无需自定义代码） #

核心思路是把每个时分字符串转成总分钟数，求和后再转成小时:分钟的格式，同时处理空值：

=Floor(Sum(IIF(IsNothing(Fields!TimeDiff.Value), 0, DateDiff("n", CDate("00:00"), CDate(Fields!TimeDiff.Value)))) / 60) 
& ":" & 
Format(Sum(IIF(IsNothing(Fields!TimeDiff.Value), 0, DateDiff("n", CDate("00:00"), CDate(Fields!TimeDiff.Value)))) Mod 60, "00")

拆解说明：

• IsNothing(Fields!TimeDiff.Value)判断字段是否为空，空值直接返回0分钟
• DateDiff("n", CDate("00:00"), CDate(Fields!TimeDiff.Value))把时分字符串转成从0点开始的总分钟数（比如9:45就是585分钟）
• Sum(...)对所有总分钟数求和
• Floor(总分钟数/60)得到总小时数，总分钟数 Mod 60得到剩余分钟数，用Format(..., "00")确保分钟数是两位（比如7分钟变成07）

方法二：自定义代码（更健壮，兼容非标准格式） #

如果你的时分格式可能不严格（比如出现9:5这种单分钟位的情况），纯表达式的CDate可能在部分区域设置下出错，这时候可以用报表自定义代码来处理：

1. 打开RDLC报表的报表属性 → 代码选项卡，粘贴以下VB代码：

Public Function GetTotalMinutes(timeStr As String) As Integer
    ' 处理空值或空字符串
    If String.IsNullOrEmpty(timeStr) Then
        Return 0
    End If
    
    ' 按冒号分割时分
    Dim timeParts() As String = timeStr.Split(":"c)
    If timeParts.Length <> 2 Then
        Return 0
    End If
    
    ' 尝试解析小时和分钟
    Dim hours As Integer
    Dim minutes As Integer
    If Integer.TryParse(timeParts(0), hours) AndAlso Integer.TryParse(timeParts(1), minutes) Then
        Return hours * 60 + minutes
    Else
        Return 0
    End If
End Function

2. 在报表的文本框中使用以下表达式计算总时长：

=Floor(Sum(Code.GetTotalMinutes(Fields!TimeDiff.Value)) / 60) 
& ":" & 
Format(Sum(Code.GetTotalMinutes(Fields!TimeDiff.Value)) Mod 60, "00")

这个方法会严格解析时分字符串，就算遇到格式不规范的情况（比如空格、非数字）也会返回0，不会导致报表报错。

为什么你的原方法报错？ #

TimeSpan.FromTicks()需要传入一个长整型的Ticks数值（1Tick=100纳秒），但你的Fields!TimeDiff.Value是字符串，sum(Fields!TimeDiff.Value)会尝试对字符串求和，这在RDLC里是不允许的，直接类型不匹配，所以必然报错。

内容的提问来源于stack exchange，提问作者Romba Kettavan