Admin Admin
المساهمات : 83 تاريخ التسجيل : 12/03/2013
| موضوع: حساب الفرق بين تاريخين بدون أى إضافات الثلاثاء مارس 12, 2013 6:52 am | |
|
اليوم سنحسب الفرق بين تاريخ الميلاد و التاريخ الحالى بدون إضافات بدون أكواد لوا بدون api فقط الأوتوبلاى + كوب من الشاى + قليل من صفاء الذهن - الكود:
-
day = System.GetDate(DATE_FMT_DAY); month = System.GetDate(DATE_FMT_MONTH); year = System.GetDate(DATE_FMT_YEAR);
Input.SetText("day", day); Input.SetText("month", month); Input.SetText("year", year);
day2 = Input.GetText("day2"); month2 = Input.GetText("month2"); year2 = Input.GetText("year2");
day2 = String.ToNumber(day2); day = String.ToNumber(day);
month2 = String.ToNumber(month2); month = String.ToNumber(month);
year2 = String.ToNumber(year2); year = String.ToNumber(year);
if day2 <= day then day3 = day-day2 else day3 = (day+30)-day2 month = month-1 end Input.SetText("day3", day3);
if month2 <= month then month3 = month-month2 else month3 = (month+12)-month2 year = year-1 end Input.SetText("month3", month3);
if year2 <= year then year3 = year-year2 Input.SetText("year3", year3); else result = Dialog.Message("Notice", "Are you born in future ???", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); end يمكن حذف أول ستة أسطر من الكود الخاص بالزر حيث أنه مكرر فى كود الصفحة on show و تعمدت التكرار لتسهيل متابعة الكود خلال الموضوع معذرة لعدم إختصار الكود لتسهيل التتبع
يمكننا الآن الإستغناء عن الإضافة DateDiff إلى الأبد الملف المفتوح مرفق
كتب من طرف خالد علي | |
|
nasser40
المساهمات : 6 تاريخ التسجيل : 18/10/2013
| موضوع: رد: حساب الفرق بين تاريخين بدون أى إضافات الجمعة أكتوبر 18, 2013 7:18 am | |
| جزاك الله خيرا ياريت تعيد رفع الملف المفتوح | |
|
باسمة
المساهمات : 352 تاريخ التسجيل : 14/03/2013
| موضوع: رد: حساب الفرق بين تاريخين بدون أى إضافات السبت أكتوبر 19, 2013 6:10 am | |
| | |
|
nasser40
المساهمات : 6 تاريخ التسجيل : 18/10/2013
| موضوع: رد: حساب الفرق بين تاريخين بدون أى إضافات السبت أكتوبر 19, 2013 10:07 am | |
| جزاك الله خيرا ولكن لى استفسار لو تكرمت أريد حساب الفرق بيت تاريخين أقوم انا بتحديدهما مثلا تاريخ الميلاد و اى تاريخ اخر اريده ليس تاريخ اليوم | |
|