التاريخ الهجري

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

السلام عليكم ورحمة الله
افتح مشروعا جديدا وخصص
الأنبوتInput1 لكتابة اليوم الميلادي
الأنبوتInput2 لكتابة الشهر الميلادي
الأنبوتInput3 لكتابة السنة الميلادية

جميل

الان سنخصص
الأنبوتInput4 لاستخلاص اليوم الهجري الموافق
الأنبوتInput5 لاستخلاص الشهر الهجري الموافق هذا الأنبوت اجعله يدعم العربية
الأنبوتInput6 لاستخلاص السنة الميلادية الموافقة

الان ضع زر وازرع فيه
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);

بعد المعاينة أكتب التاريخ الميلادي وفق خانته 1 و 2 و 3
لتظهر نتيجة التحويل في الانبوت 3 , 4 , 5

موفق أستاذي :abc_138:

[عبود عبود]

شكـــــــــــرا

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

مرور عطر أخي و استاذي الكريم :abc_138:

[Haitham.2012]

عذرا على التأخر في الرد أخي الكريم .. فكره ممتازه .. تعرف اني من فتره احتجت لهذا الامر ولكن اعتمدت على الاضافه picker للحصول على التريخ الافتراضي للنظام سواء كان ميلادي او هجري .. ولكن طبعا يبقى ما قدمته رائع جدا وسيأتي اليوم الذي نحتاج فيه هذه الفكره .. وان شاء الله قريبا نجد كود لعكس العمليه ..

موفق دائما ان شاء الله

:abc_050: :abc_138: :abc_050:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
وقع التطبيق بنجاح ، هناك ملاحظة واحدة : حجم الخط رقيق ،
بالنسبة لمن يشكو نقصا في النظر هل يمكن تكبيره ؟
جازاك الله خيرا كثيرا .
والسلام

[أبو يوسف]

جزاك الله خيرا اخانا ابا بلقيس

:abc_152:

[azizsoft]

بسم الله الرحمن الرحيم

بارك الله فيكم أستاذ ابو بلقيس
وجزاكم الله خيرا على كل جهودكم القيمة

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

عذرا على التأخر في الرد أخي الكريم .. فكره ممتازه .. تعرف اني من فتره احتجت لهذا الامر ولكن اعتمدت على الاضافه picker للحصول على التريخ الافتراضي للنظام سواء كان ميلادي او هجري .. ولكن طبعا يبقى ما قدمته رائع جدا وسيأتي اليوم الذي نحتاج فيه هذه الفكره .. وان شاء الله قريبا نجد كود لعكس العمليه ..

موفق دائما ان شاء الله

:abc_050: :abc_138: :abc_050:

مرور عطر إخواني بما أن أستاذي لمح لعملية عكسية أي استنباط التاريخ الميلادي
من الهجري هاهي محاولة على أن تكون الانبوتات 1 - 2 - 3 لكتابة اليوم و الشهر بالأرقام و السنة الهجرية
ليتم التحويل الى الانبوتات 4 - 5 - 6 وفق مايقابلها بالميلادي مع ملاحظة شروط جبر الكسور هنا مهمة جدا
d_h = Input.GetText("Input1");
d_h = String.ToNumber(d_h);
m_h = Input.GetText("Input2");
m_h = String.ToNumber(m_h);
y_h = Input.GetText("Input3");
y_h = String.ToNumber(y_h);
if (( y_h -1)*354.3667)- Math.Floor((y_h -1)*354.3667)>=0.5 then
belkiss1 =(Math.Ceil (( y_h -1)*354.3667))
elseif (( y_h -1)*354.3667)- Math.Floor((y_h -1)*354.3667)<0.5 then
belkiss1 =Math.Floor(( y_h -1)*354.3667)
end
belkiss2=Math.Ceil((m_h-1)*29.5)
belkiss3 = d_h +belkiss1+belkiss2+1948438
belkiss4=Math.Floor((belkiss3-1867216.25)/36524.25)
belkiss5=Math.Floor(belkiss4/4)
if belkiss3 <2299161 then
belkiss6 = belkiss3
elseif belkiss3 >2299161 then
belkiss6 = belkiss3+belkiss4- belkiss5+1
end
belkiss7= belkiss6+1524
belkiss8= Math.Floor((belkiss7 - 122.1)/365.25)
belkiss9 = Math.Floor(365.25*belkiss8)
belkiss10= Math.Floor((belkiss7 - belkiss9)/30.6001)
belkiss11=Math.Floor(belkiss10*30.6001)
d_m = belkiss7- belkiss9-belkiss11
if belkiss10 <14 then
m_m = belkiss10-1
elseif belkiss10 >=14 then
m_m = belkiss10-13
end
if m_m >2 then
y_m = belkiss8-4716
elseif m_m <2 then
y_m = belkiss8-4715
end
Input.SetText("Input4", d_m);
Input.SetText("Input5", m_m);
Input.SetText("Input6", y_m);


ان شاء الله تكون المحاولة ناجحة و نرد بها القليل من الجميل

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته أخي الكريم استعملت الأكواد التي تفضلت مشكورا بوضعها في انجاز اداة تحويل التاريخ من الميلادي الى الهجري
ولا أعرف ان كانت لاستخراج أي تاريخ مهما قدم أم أنها للسنة التي نحن فيها فقط . على كل وضعت تاريخ ميلاد ابني
في هذه الأداة فأعطتني تاريخا مغايرا لما هو معروف عندي .
ابني مولود في 04 مارس 2002 الأداة أعطتني التاريخ التالي 20 ذو الحجة 1422 وانأ أتذكر جيدا ان 4 مارس 2002 يقابل ربيع الأول لا اعرف اليوم ولا السنة . وكنت على مر السنوات احدث ابني بانه ولد في الشهر الذي ولد فيه الرسول صلى الله عليه وسلم .فأرجو الإطلاع على الأداة وإصلاح ما يمكن إصلاحه
ولك لك الشكر والتقدير
http://www.gulfup.com/?EJvRGz

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

شكرا أخي صالحي على المتابعة لكن عليك أولا التأكد هل
4 مارس 2002 يوافق يوم الاثنين 20 ذو الحجة 1422 أم لا ؟
بعدها نتكلم :abc_138:

[Haitham.2012]

أكثر من رائع أستاذ ثامر .. موفق دائما ان شاء الله .. يضاف إلى مكتبتي ملف مميز جديد !!

:abc_138: :abc_152: :abc_138:

[المحترف القادم]

شكرا أخي صالحي على المتابعة لكن عليك أولا التأكد هل
4 مارس 2002 يوافق يوم الاثنين 20 ذو الحجة 1422 أم لا ؟
بعدها نتكلم :abc_138:

أخ ثامر .. أشكرك على إبداعك ومزيدًا من التقدم

عملية التحويل دقيقة .. ولا توجد أخطاء اذا تم كتابة الشهر بالرقم

اليوم 10 - 1 - 2014 م

الموافلق 9 - ربيع الأول - 1435 هـ

انظر الصورة :

http://im39.gulfup.com/7yqMk.jpg


أما اذا كتب الشهر بالاسم وليس بالرقم يوجد خطأ

اليوم 10 - يناير - 2014 م

الموافق 9 - ربيع الأول - 1435 هـ

انظر الى الصورة :

http://im40.gulfup.com/Tc6Bp.jpg



اقتراح :

حبذا لو تم إضافة input بجوار الشهر الهجري يظهر فيها رقم الشهر الهجري

وهل يمكن اضافة input بجوار الشهر الميلادي يظهر فيها اسم الشهر الميلادي بعد كتابة رقم الشهر الميلادي

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
شكرا اخي المحترف القادم على تدعيم ملاحظتي بالصور
والان في انتظار رد اخي ثامر
والسلام

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

أحبابي شكرا جزيلا فقط أحببت أن أشير
عند التحويل من ... إلى ... نتعامل مع قيم أليس كذلك
وتجرى عليها عمليات ضرب وطرح وقسمة وووو .. لعل إخواني يوافقونني أنه لا يمكن
أن تجرى عمليات على قيم نصية كأن أقول جانفي تقسيم 4 ضرب 3 ووووووو

من جهة أخرى أخي صالحي مازلت أسألك
هل 4 مارس 2002 توافق شهر ذو الحجة أم ربيع الأول
لأني بصراحة أخي العزيز وددت أن تتأكد

أما عن استغلال هذه المحاولة فلكل اضافته و كيفية الاستغلال
ومشكور أخي المحترف القادم على التطبيق الجميل
قد تستغلها ليس فقط كاداة بل لاظهار التاريخ الهجري الحالي في تجميعيتك

[المحترف القادم]

لعل إخواني يوافقونني أنه لا يمكن
أن تجرى عمليات على قيم نصية كأن أقول جانفي تقسيم 4 ضرب 3 ووووووو


كلامك صحيح أخي ثامر .. ولا يختلف عليه اثنان

ألا يمكن تعويض اسم الشهر برقم مقابل له ؟


من جهة أخرى أخي صالحي مازلت أسألك
هل 4 مارس 2002 توافق شهر ذو الحجة أم ربيع الأول
لأني بصراحة أخي العزيز وددت أن تتأكد


أخي ثامر أنا حولت تاريخ اليوم الجمعة ولك رؤية ذلك في الصورة

http://im40.gulfup.com/Tc6Bp.jpg

فالناتج شهر ( صفر ) بينما نحن في شهر ( ربيع الأول )

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

يناير هو 1 حتى تعطيك نتائج دقيقة لكن يمكنك بفنيات معينة
تفهم البرنامج بأن يناير = 1 تلك تطبيقات فاهمني

[المحترف القادم]

يناير هو 1 حتى تعطيك نتائج دقيقة لكن يمكنك بفنيات معينة
تفهم البرنامج بأن يناير = 1 تلك تطبيقات فاهمني

صح كلامك .. بودنا أن نفهم البرنامج أن يناير = 1

وهو ما أشرت إليه في ردي السابق عندما قلت لك :

ألا يمكن تعويض اسم الشهر برقم مقابل له ؟

أتمنى منك المساعدة في جعل التطبيق كذلك أخي ثامر

وثق تماما أن ردي ليس للتقليل من التطبيق ..

بل للحصول على أعلى دقة :abc_138:

[فرح صالحي]

من جهة أخرى أخي صالحي مازلت أسألك
هل 4 مارس 2002 توافق شهر ذو الحجة أم ربيع الأول
لأني بصراحة أخي العزيز وددت أن تتأكد

أما عن استغلال هذه المحاولة فلكل اضافته و كيفية الاستغلال
ومشكور أخي المحترف القادم على التطبيق الجميل
قد تستغلها ليس فقط كاداة بل لاظهار التاريخ الهجري الحالي في تجميعيتك

السلام عليكم ورحمة الله وبركاته
اخي التطبيق انجزته وجربته وارسلته لك من مكان العمل لتجربه بنفسك وقلت لك حرفيا اصلح مايمكن اصلاحه لانني ظننت ان الخطأ مني ذلك انني ادخلت انبوت واحد ثم قمت بعملية نسخ ولصق وظاهر اخي انك لم تنزله اصلا ولم تطلع عليه ولم تجربه ولم تصلحه ووو..............وبصراحة هذا مخيب للآمال !!!! وعندما اعود لمكان العمل سأتأكد وسأخبرك بالتاكيد وبصدق انا الان اكتب هذا الرد من البيت .
وشكرا للمحترف القادم لانه حمل التطبيق وجربه ...........وأخيرا حاز حقوق الملكية
سلاماتي للجميع

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

أخي المحترف بالعكس لا أنزعج أبدا فغايتي يعلمها الله
اذ وجدت خطأ عند الكتابة برقم الشهر قل لي لنتعاون
عن اقتراحك الجميل فالملف ملفكم وانتظر ابداعك في ملف يستفيد منه الزملاء
حاليا أمامي عمل غاية في الصعوبة بل أحتاج
من يساعدني متعلق بحساب وقت الصلاة فلكيا لذلك فتركيزي مشتت قليلا

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

يا أخي صالحي أنا في مقهى انترنت لا أوتوبلاي معي و لا امكانات
قليلا من الاعذار رجاء

فخور بك حين أرى فيك تلك الرغبة في التعلم مزيدا من التألق

[المحترف القادم]

عن اقتراحك الجميل فالملف ملفكم وانتظر ابداعك في ملف يستفيد منه الزملاء
حاليا أمامي عمل غاية في الصعوبة بل أحتاج
من يساعدني متعلق بحساب وقت الصلاة فلكيا لذلك فتركيزي مشتت قليلا

لا يُفتى ومالك في المدينة :abc_088:

نحن لم نبلغ من العلم ما بلغتم
وأعانك الله وساعدك على إنجاز ما أنتم فيه ..

ومتى ما استطعت أو استطاع أحد الإخوة عمل ذلك فنحن بالانتظار

أشكرك على رحابة صدرك أخي ثامر

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

استغل listbox وانجزه لنتعلم من أخطائنا :abc_138:

[فرح صالحي]

[QUOTE=ثامر أبو بلقيس;254294]
من جهة أخرى أخي صالحي مازلت أسألك
هل 4 مارس 2002 توافق شهر ذو الحجة أم ربيع الأول
لأني بصراحة أخي العزيز وددت أن تتأكد

السلام عليكم ورحمة الله وبركاته
اخي هذه اداة اخري تحول من الميلادي الى الهجري ثم الميلادي
شاهد واحكم بنفسك
http://www.gulfup.com/?L3yRlu

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

قمت ياأخي صالحي بتحميل الملف و عند الرجوع للبيت سأتمكن
من معاينته شكرا جزيلا موفق :abc_138:

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

تم الاطلاع و اتحصل على النتائج بلا أخطاء
طبعا بعد مراعاة القيم العددية عند التحويل لثاني مرة من
الهجري للميلادي
موفق .

[الحارث بن فيصل]

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

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

مرور عطر :abc_138: