Private Function Added(ByVal dt As DataTable, ByVal spalte As Integer) as _
  integer
 
    Dim result As integer= 0
    For Each el As DataRow In dt.Rows
        result += (Cint(el(spalte).ToString.Substring(0, 2)) * 60) _
               + (Cint(el(spalte).ToString.Substring(3, 2)))
    Next
    Return result
End Function

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]

Beitrag wurde zuletzt am 19.09.11 um 14:29:11 editiert.