+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب كود لجمع الوقت لعمود داخل DataGrid (/showthread.php?tid=18187)
طلب كود لجمع الوقت لعمود داخل DataGrid - الطايش - 28-11-16
السلام عليكم ،،،
ياخبراء البرمجة طلب بسيط
لدي بيانات داخل 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ولو فيه كود ثاني عادي أهم شي تنحل المشكلة
RE: طلب كود لجمع الوقت لعمود داخل DataGrid - Ahmed_Mansoor - 29-11-16
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , جرب هذا الكود مع تغيير إسم الحقل في الجدول والذي يخزن فيه الوقت المراد جمعه في هذا الكود حطيت إسم إفتراضي وهو 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
RE: طلب كود لجمع الوقت لعمود داخل DataGrid - الطايش - 29-11-16
يعطيك الف عافية أستاذ أحمد الكود تمام
للإستفادة
تم تعديل الكود ليتم جمع الوقت من خلال العمود في 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) هي رقم العمود المراد جمعه