12-05-2013, 03:34 PM
السلام عليكم بعد تجربة الكود الموضوع لاحظت وجود خطأ في النتيجة بالنسبة لليوم الأول في عدد الساعات
ولذلك قمت ببعض التعديل البسيط في هذا الجزء
طبعاً في حال كان لدي خطأ ما ****ا التصحيح وشكراا
ولذلك قمت ببعض التعديل البسيط في هذا الجزء
كود :
حيث حذفت هذا القسم
HH := HH + (24 * Round(DateD ))
وأضفت القسم التالي طبعا هنا يجب إضافة تعريف لـ dd بقيمة Word
dd:=DaysBetween(Date1, Date2);
if dd >= 1 then HH := HH + dd*24;طبعاً في حال كان لدي خطأ ما ****ا التصحيح وشكراا