منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب كود لجمع الوقت لعمود داخل DataGrid
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ،،،

ياخبراء البرمجة طلب بسيط Smile
لدي بيانات داخل DataGrid وعمود بصيغة الوقت (07:30)
أريد جمع العمود الذي يحتوي على صيغة الوقت في Text1
الكود كالتالي :
كود :
Dim Total As Double
Total = 0
rs.MoveFirst
Do Until rs.EOF
   Total = Format(Total) + Format(TimeValue(DataGrid1.Columns(10)))
   rs.MoveNext
Loop
Text1 = Total

ولو فيه كود ثاني عادي أهم شي تنحل المشكلة Sad
وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , جرب هذا الكود مع تغيير إسم الحقل في الجدول والذي يخزن فيه الوقت المراد جمعه في هذا الكود حطيت إسم إفتراضي وهو 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 
يعطيك الف عافية أستاذ أحمد الكود تمام

للإستفادة

تم تعديل الكود ليتم جمع الوقت من خلال العمود في 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) هي رقم العمود المراد جمعه