[الطايش]

يعطيك الف عافية أستاذ أحمد الكود تمام

للإستفادة

تم تعديل الكود ليتم جمع الوقت من خلال العمود في DataGrid

وهو كالتالي :

كود :

Dim Total As Double
Dim tTime As String
Dim zHours As Double
Dim zMinute As Double

Total = 0
rs.MoveFirst
Do Until rs.EOF
   tTime = Format$(DataGrid1.Columns(9), "HH:MM")
   zHours = zHours + Hour(tTime)
   zMinute = zMinute + Minute(tTime)
   rs.MoveNext
Loop

Do
   If zMinute >= 60 Then
      zHours = zHours + 1
      zMinute = zMinute - 60
   Else
      Exit Do
   End If
Text1 = zHours & ":" & zMinute

حيث أن Columns(9) هي رقم العمود المراد جمعه