تويت
السلام عليكم ورحمة الله
افتح مشروعا جديدا وخصص
الأنبوتInput1 لكتابة اليوم الميلادي
الأنبوتInput2 لكتابة الشهر الميلادي
الأنبوتInput3 لكتابة السنة الميلادية
جميل
الان سنخصص
الأنبوتInput4 لاستخلاص اليوم الهجري الموافق
الأنبوتInput5 لاستخلاص الشهر الهجري الموافق هذا الأنبوت اجعله يدعم العربية
الأنبوتInput6 لاستخلاص السنة الميلادية الموافقة
الان ضع زر وازرع فيه
بعد المعاينة أكتب التاريخ الميلادي وفق خانته 1 و 2 و 3
لتظهر نتيجة التحويل في الانبوت 3 , 4 , 5
موفق أستاذي
افتح مشروعا جديدا وخصص
الأنبوتInput1 لكتابة اليوم الميلادي
الأنبوتInput2 لكتابة الشهر الميلادي
الأنبوتInput3 لكتابة السنة الميلادية
جميل
الان سنخصص
الأنبوتInput4 لاستخلاص اليوم الهجري الموافق
الأنبوتInput5 لاستخلاص الشهر الهجري الموافق هذا الأنبوت اجعله يدعم العربية
الأنبوتInput6 لاستخلاص السنة الميلادية الموافقة
الان ضع زر وازرع فيه
كود PHP:
jour = Input.GetText("Input1");
jour = String.ToNumber(jour);
mois = Input.GetText("Input2");
mois = String.ToNumber(mois);
annee= Input.GetText("Input3");
annee = String.ToNumber(annee);
if mois <=2 then
value1 = mois+12
value2 = annee-1
elseif
mois >2 then
value1 = mois
value2 = annee
end
value3 = Math.Floor(value2/100);
value4 = Math.Floor(value2/400);
value5 = 2-value3+value4
value6 =Math.Floor((value2+4716)* 365.25)
value7 =Math.Floor((value1 + 1 ) * 30.6001)
value8 = jour +value7+value6+value5-1524.5
value9 = value8-1937806.5
value10=Math.Floor((value9-1)/10631)
value11=( value9 + 354 ) - 10631 * value10
value12=Math.Floor(( 10985 - value11)/ 5316)
value13= Math.Floor(( 50 *value11 )/ 17719)
value14=Math.Floor(value11/5670)
value15=Math.Floor(( 43 * value11 )/ 15238)
value16= value13 * value12 + value15 * value14
value17=Math.Floor((30 - value16 )/ 15)
value18=Math.Floor((17719 * value16 ) / 50)
value19=Math.Floor(value16/16)
value20=Math.Floor((15238 * value16 ) / 43)
value21= value11-value17*value18-value19*value20+29
moish = Math.Floor(( 24 * value21 ) / 709)
if moish == 1 then
Input.SetText("Input5", "محرم");
elseif moish == 2 then
Input.SetText("Input5", "صفر");
elseif moish == 3 then
Input.SetText("Input5", "ربيع الأول");
elseif moish == 4 then
Input.SetText("Input5", "ربيع الثاني");
elseif moish == 5 then
Input.SetText("Input5", "جمادي الأول");
elseif moish == 6 then
Input.SetText("Input5", "جمادي الثاني");
elseif moish == 7 then
Input.SetText("Input5", "رجب");
elseif moish == 8 then
Input.SetText("Input5", "شعبان");
elseif moish == 9 then
Input.SetText("Input5", "رمضان");
elseif moish == 10 then
Input.SetText("Input5", "شوال");
elseif moish == 11 then
Input.SetText("Input5", "ذو القعدة");
elseif moish == 12 then
Input.SetText("Input5", "ذو الحجة");
end
value22=Math.Floor(( 709 * moish) / 24)
jourh = value21-value22
Input.SetText("Input4", jourh);
anneeh = 30 * value10 + value16 - 30
Input.SetText("Input6", anneeh);
لتظهر نتيجة التحويل في الانبوت 3 , 4 , 5
موفق أستاذي
تعليق