تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب كود لجمع الوقت لعمود داخل DataGrid
#1
السلام عليكم ،،،

ياخبراء البرمجة طلب بسيط 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
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

للإستفادة

تم تعديل الكود ليتم جمع الوقت من خلال العمود في 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) هي رقم العمود المراد جمعه
الرد
تم الشكر بواسطة: Ahmed_Mansoor , sendbad100 , sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف إضافة CheckBox لصفوف Datagrid omran555 3 279 14-07-18, 04:23 PM
آخر رد: Amir_alzubidy
  [سؤال] كيف نقوم بالتعديل على خلية داخل msflexgrid ابن دوعن 3 639 07-05-18, 11:53 PM
آخر رد: safwan
  طباعة form+ datagrid hannileo 19 1,019 06-11-17, 10:32 AM
آخر رد: hannileo
  كود قيمة ثابته داخل TEXTBOX مع كل ادخال للبينات دهشوش1 2 265 31-10-17, 07:07 PM
آخر رد: دهشوش1
  بحث بين رقمين داخل الجدول hannileo 4 427 31-10-17, 11:14 AM
آخر رد: hannileo
  [سؤال] كيف يمكن البحث بين تاريخين داخل datagrid1 محب الإسلام 5 414 28-10-17, 03:00 AM
آخر رد: Amir_alzubidy
  [vb6.0] سؤال في Msflexgride ومقارنة بينها وبين Datagrid css 0 347 20-06-17, 04:48 PM
آخر رد: css
  تصدير االبيانات المحددة داخل listview الى برنامج الاكسل haniblack 6 660 28-03-17, 12:55 PM
آخر رد: haniblack
  البحث داخل list viw بواسطة اداة adodc haniblack 7 634 27-03-17, 02:11 PM
آخر رد: Amir_alzubidy
  كيفية تحديث بيانات جدول داخل قاعدة بيانات SQL Server عن طريق الإنترنت engabuhema 1 785 31-07-16, 01:34 PM
آخر رد: ahmedabdelaliem

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم