تحديد السنــــة بسيطة أم كبيســــة

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته

حتى نحدد السنة كيبســـة أم بسيطة فهذا سيقودنا الى تحديد عدد ايام السنة فإذ
كان عدد أيام السنة 366 فالسنة كبيســة
واذا كان 365 يـــوما فالسنة بسيطــة

بعيدا عن عمليات القسمة على أربعة وغيرها من الطرائق يمكن تجربة هذا لبناء البسيط


x=2017
result = Dialog.Message("", os.date("%j",os.time{year=x,month=12+1,day=0}));



ملاحظة : يمكنك كتابة محاولتك على الرابط قبل الرد :

من هنااااا (http://www.abc4web.net/vb/showthread.php?p=312343#post312343)

[ياسرهتهت]

بسم الله الرحمن الرحيم
بارك الله فيك استاذنا الفاضل
موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138:

[عبد الهادي بهاب]

السلام عليكم ورحمة الله وبركاته
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[المـهاجر]

if 1968 %4 == 0 then
Dialog.Message("Notice", "366");
else
Dialog.Message("Notice", "365");
end

قد لا يكون الحل الامثل من وجهة نظر الكثيرين
لكنى اجد صعوبة فى تقبل فكرة أن عدد ايام العام 1968 هى 158 يوما
تحياتى

[ثامر أبو بلقيس]

لكنى اجد صعوبة فى تقبل فكرة أن عدد ايام العام 1968 هى 158 يوما


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

و تتقبلها عندما تعرف بأننا نتعامل مع تعليمة os

[المـهاجر]

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

و تتقبلها عندما تعرف بأننا نتعامل مع تعليمة os

أعلم ما ذكرت
جهد مشكور
و عذرا على الازعاج
موفق

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
بارك الله فيك استاذنا الفاضل
موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138:

مرور طيب :abc_138:

[ثامر أبو بلقيس]

أعلم ما ذكرت
جهد مشكور
و عذرا على الازعاج
موفق

مرور عطر و رمضان مبارك :abc_138:

[جمال سات]

بارك الله فيك

[فهد الشيخ]

جاري التجربة...