必须先转换为数字,然后统计,得出结果后,将数字转换为时间。
Dim sum As Double
For Each dr As DataRow In DataTables("表A").DataRows
If dr.IsNull("时间") = False Then
Dim v As Integer = math.Floor(dr("时间"))
sum = sum + v * 60 + (dr("时间") - v) * 100
End If
Next
Dim h As Integer = sum \ 60
Dim m As Integer = sum - h * 60
Return h & ":" & Format(m,"00")