[Ahmed_Mansoor]

وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , جرب هذا الكود مع تغيير إسم الحقل في الجدول والذي يخزن فيه الوقت المراد جمعه في هذا الكود حطيت إسم إفتراضي وهو rs![zTime] غيره لإسم الحقل الحقيقي :

PHP كود :

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$(rs![zTime], "HH:MM:SS AM/PM")
   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
Loop

Text1 = zHours & ":" & zMinute