+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن المساعدة فى كود حساب الوقت (/showthread.php?tid=36631)
ممكن المساعدة فى كود حساب الوقت - new_programer - 07-10-20
السلام عليكم اخوانى الكرام
عندى جدول لحضور والانصراف بعرض البيانات بالشكل كما بالصورة
اريد حساب الوقت بالتاريخ وكود الموظف
الحقل اللى اسمه Expr1001
فيه التاريخ مع وقت الدخول والتاريخ مع وقت الخروج
عايز اعرف اجمالي ساعات العمل لكل يوم لموظف
RE: ممكن المساعدة فى كود حساب الوقت - boudyonline - 07-10-20
PHP كود :
Public Class DateRange
Public Property StartTime As DateTime
Public Property EndTime As DateTime
Public ReadOnly Property NumberOfHours As Decimal
Get
Dim result As Double
result += (EndTime - StartTime).Hours
result += (EndTime - StartTime).Minutes / 60
result += (EndTime - StartTime).Seconds / 3600
Return result
End Get
End Property
End Class
يجب فصل توقيت الدخول عن توقيت الخروج كما بالكلاس عالبه
RE: ممكن المساعدة فى كود حساب الوقت - new_programer - 07-10-20
طيب دة الكود اللى بستخدمة فى الاستعلام
كود :
tb_table.Clear()
Dim cmd As New OleDbCommand("select * from qury1 where USERID=@qty and CHECKTIME > @dat1 and CHECKTIME < @dat2", con)
cmd.Parameters.Add("@qty", OleDbType.Integer).Value = Val(txtCode.Text)
cmd.Parameters.Add("@dat1", OleDbType.Date).Value = ddat1.Value
cmd.Parameters.Add("@dat2", OleDbType.Date).Value = ddat2.Value
con.Open()
tb_table.Load(cmd.ExecuteReader)
dvg_invsales.DataSource = tb_table
con.Close()ازاى استخدمة داخل الكود
انا بحاول ودة اخر حاجة قدرت اتوصل ليها
ازاى اعرف عدد ساعات العمل للتاريخ مثال
تاريخ اليوم 1/1/2020 الدخول 10:00
1/1/2020 الخروج 05:00
ازاى اجمع ساعات العمل لكل يوم
ثم اجمع اجمالي الساعات حسب تاريخ محدد