منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف نحسب الوقت بالساعة والدقيقة للموظفين ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كيف نحسب الوقت بالساعة والدقيقة للموظفين ؟ (/showthread.php?tid=30438)



كيف نحسب الوقت بالساعة والدقيقة للموظفين ؟ - princeofislam - 22-07-19

السلام عليكم 
اخواني الاعزاء  ارفقت مشروع اريد وضع اكواد تحسب وقت دوام الموظف بالساعة والدقيقة 

شاكرا لكم المرور والمساعدة

مثال : جاء احمد الى الدوام الساعة 10:12 صباحا و غادر الساعة 3:12 بعد الظهر مدة الدوام خمس ساعات لليوم هذا


RE: كيف نحسب الوقت بالساعة والدقيقة للموظفين ؟ - princeofislam - 22-07-19

اكثر من رائع تسلم ايدك استاذ امير الزبيدي


RE: كيف نحسب الوقت بالساعة والدقيقة للموظفين ؟ - princeofislam - 23-07-19

استاذ امير في كود مش مخليني انام هو بسيط والله لاكن للعمر احكام
عندي سجل في الاسم والتاريخ والعمل

اريد كود استعلام بحث - بحيث يكون الاسم والتاريخ هم المفتاح     where name = emp name and date = text911.value
i use adodc1

يعني مثلا اريد ان ابحث عن اسم احمد محمد بتاريخ محدد الكود ادناة لم يعمل


كود :
Adodc1.RecordSource = "select * from KASS where NAME='" & Text7.Text & "' and date >= #" & text911.Value & "#  "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1



RE: كيف نحسب الوقت بالساعة والدقيقة للموظفين ؟ - princeofislam - 23-07-19

تم الحل مع كل الشكر والمحبة للاستاذ امير الزبيدي الغالي مغلبينك معنا والله


RE: كيف نحسب الوقت بالساعة والدقيقة للموظفين ؟ - princeofislam - 23-07-19

كود :
Adodc1.RecordSource = "select * from emptime where empname='" & Text5.Text & "' and  empdate = #" & Text911.Value & "#  "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

هذا هو حل البحث عن الاسم بالتاريخ  وكل الشكر للاستاذ الكبير امير الزبيدي