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")