العمر والخدمة

هلا والله أبو زمل

والله ماضنتي أحد بيساعدك بهالطلبات

وكانه زبط معك البرنامج عطني منه نسخه كودي أعرف متى أتقاعد

مع تحياتي ل14

حليتها قدرت احل مشكله حساب التاريخ من تاريخ اليوم

بس اخلصه راح ارسله

شرح المثال في البداية أنشأت Module يتم فيه إلصاق التالي:Public Function ElapsedDays(dateTimeStart As Date, dateTimeEnd As Date) As String'****************************************************************************

**********' Function ElapsedDays(dateTimeStart As Date, dateTimeEnd As Date) As String' Returns the time elapsed in days between a starting Date/Time and' an ending Date/Time formatted as a string that looks like this:' "10 days" or "1 day".'****************************************************************************

**********Dim interval As Double, days As VariantIf IsNull(dateTimeStart) = True Or _ IsNull(dateTimeEnd) = True Then Exit Functioninterval = (dateTimeEnd - dateTimeStart) / 354days = Fix(CSng(interval))ElapsedDays = IIf(days = 1, days & " Hejri Year", days & " Hejri Years")End Functionواسميته بالاسم التاليElapsedDaysومن ثم عملت استعلام اسمه " استعلام رقم 2" فيه الدوال التالية:Year of Graduate: ElapsedDays([TAREKH_ALTKHRJ];Date())يتم كتابة هذا في التاريخ التخريج – نسخة اخرىهاي الملف

neww.rar