主题：通话时长不可为负怎么设置

Select Case e.DataCol.name
    Case "摘机时间","挂机时间"
        Dim dr3 As DataRow = e.DataRow
        If dr3.IsNull("摘机时间") Or dr3.IsNull("挂机时间") Then
            dr3("通话时长") = Nothing
        Else
            Dim tp As TimeSpan
            tp = dr3("挂机时间") - dr3("摘机时间")
            dr3("通话时长") = tp.TotalSeconds()-30
        End If
End Select

以上代码计算出的通话时长不超过30秒会出现负数应该怎么改才对。。

狐爸是这样的因为从摘机时间起到挂机时间中间有一段时间是在振铃状态。我想去掉平均的振铃状态约30秒左右，所以在算通话时长时我设置会-30秒

            Dim tp As TimeSpan
            tp = dr3("挂机时间") - dr3("摘机时间")
            dr3("通话时长") = tp.TotalSeconds()-30