مرحباً اخى Rabeea Qbaha
بخصوص الكود المطلوب استخدامه لطرح وقت من اخر طبقاً للتاريخ
فكل ما عليك فعله هو التالى كمثال
اولاً ادرج على الـ Function
كود :
Function GetHours(ByVal D1 As Date, ByVal D2 As Date)
Dim MyHours As New TimeSpan
MyHours = D2 - D1
Return MyHours.Hours
End Functionثانياً استخدم الكود كاتالى
كود :
MsgBox(GetHours(#05/06/2009 08:00:00#, #05/06/2009 16:00:00#))أو
كود :
TextBox1.Text = GetHours(#05/06/2009 08:00:00#, #05/06/2009 16:00:00#)طبعاً بخصوص التاريخ عند الكود بالتنسيق بيكون كالتالى كمثال
كود :
TextBox1.Text = GetHours(Date.Now.ToString("dd/MM/yyyy HH:mm:ss"), Date.Now.AddHours(8).ToString("dd/MM/yyyy HH:mm:ss"))لاحظ هذا الجزء
كود :
Date.Now.ToString("dd/MM/yyyy HH:mm:ss")وده اللى هيستخدم لادخاله بقاعدة البيانات كا قيمة فى الجدول
اذا كان وقت الحضور او الانصراف
واذا كنت لا تريد ظهور الثواني فقط قم بازالة هذا فوجودها كا عدمه
كود :
:ssتحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية

