اخي العزيز ردا على مشاركتك
اذا اردت استخراج الارقام مثل برنامجك ماعليك الا التاخير والتقديم في الشروط لاحظ
CLOSE ALL SET date BRITISH SET CENTURY on SET TALK OFF USE table1 GO top DO WHILE ! EOF() year1 = year(mdate1) year2 = year(mdate2) cmyear = year2 - year1 month1 = month(mdate1) month12 = month(mdate2) cmmonth = month12 - month1 day1 = day(mdate1) day2 = day(mdate2) cmday = day2 - day1 If cmday < 0 cmmonth = cmmonth - 1 cmday = cmday + 30 Endif If cmmonth < 0 cmyear = cmyear -1 cmmonth = 12 + cmmonth Endif replace myear WITH cmyear,; mmonth WITH cmmonth ,; mday WITH cmday SKIP ENDDO BROWSE
وبقي لديك كيفية التعامل مع الاشهر 30 و31 و 29 و28
واريد ان اسالك هل الكود المذكور من قبلك هو فكرتك او تعديل لكود منشور سابقاً
ولا تنسى لكل شخص فكرة ولاعيب فيها ان اقوم بالتعديل على كود منشور
وان قمت بالتعديل فهذا يثبت لك انك مستوعب الفكرة وعمل الايعازات اي تطوير الفكرة وانا اؤيد وبشدة هذة الطريقة
وانا شخصيا اعتمدها في الكثير من الحالات لانها فكرة انك تكمل ما بدا به الاخرون وهو مفهوم التطوير
واريد ان اضيف لك في مثل هذة الحلات يمكن تطبيق المراد عمله وبنسبة كبيرة جداً باستخدام
if ,case,do
تحياتي للجميع
