[elgokr]

مرحباً اخى 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

تحياتى لك

وتمنياتى لك التوفيق