تحويل التاريخ من ميلادى الى هجرى على الفورم

[الصـقر]

الاخوة الكرام فى هذا الصرح العظيم

بناء على طلب للاخ " المارد العراقى " على هذا الرابط 

http://www.officena.net/ib/topic/64162-موضوع-خاص-بالردود-والاستفسارات-واسئله-اختبارات-على-شروحات-الفورم-سلسلة-علمنى-كيف-اصطاد/?do=findComment&comment=418485

قمت بعمل طلبه وحبيت يكون فى موضوع مستقل حتى تعم الفائده ويكون سهل فى الوصول اليه من خلال البحث فيما بعد

الطلب كان

السلام عليكم
أستاذ عندي 3  (textbox)   الاول يحتوي على تاريخ اليوم والثاني يحتوي تاريخ الشهر والثالث تاريخ السنه بالميلادي
و عندي تكست رابع اريد ان اجعل التاريخ في التكست الرابع يمثل  تاريخ  التكست الثلاثه السابقه ولكن بالهجري بأستخدام اليوزر فورم  دون الرجوع او استخدام الخلايا في الاكسل 

على سبيل المثال التكست الاول يساوي 22 الي هو اليوم  ولثاني يساوي 2 الي هو الشهر والثالث يساوي 2000  

كيف اجعل التكست الرابع يساوي ( 18 / 11 /1420) الي هوه التاريخ الهجري لتلك السنه   بواسطة vba  فقط دون استخدام خلايا الاكسل ؟؟

مرفق ملف به ما تريد 

الملف الاول تحويل التاريخ من يوم وشهر وسنة

                                                                        تحويل التاريخ من ميلادى الى هجرى على الفورم.zip

الملف الثانى تحويل التاريخ بنفس التكست

                                                                       تحويل التاريخ من ميلادى الى هجرى على الفورم - Copy.zip

تقبلوا تحياتى 

تم تعديل أكتوبر 21, 2015 بواسطه الصـقر

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا القدير و المحترم " الصّقر " على الاضافة المميّزة و اللمسة الجديدة الرّائعة .. و الحقيقة أعمالك كلّها قمة الرّوعة روعة صاحبها .. جزاك الله خيرًا و زادها بميزان حسناتك و زادك من علمه و فضله .. فقط لو سمحت أستاذذنا الغالي هل من الممكن جعل الكتابة في التاكست بوكس المحوّل إليه تلقائية .. بمعنى بمجرّد إدخال التاريخ الميلادي أو الهجري .. يُكتب التاريخ تلقائيا .. ألف شكر مسبّقًا

 

                                                                                                      فائق إحتراماتي

[الصـقر]

اخى الحبيب زيزو الغالى

مشكور على مرورك العطر

بص يا عم زيزو الملف الاول انت بدخل اليوم ثم الشهر ثم السنه بمجرد انتهاء من كتابه السنه يتم اظهار التاريخ بالهجرى فى  التكست الاخضر ( ودا كان طلب الاخ مارد)

اما الملف الثانى بتكتب التاريخ الميلادى فى التكست وبمجرد الانتهاء والخروج بانتر يتم تحويل التاريخ الى هجرى بنفس التكست 

يعنى اللى بتطلبه موجود اصلا جرب مره تانية

تقبل تحياتى

[عبد العزيز البسكري]

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

بارك الله فيك على الكلمات الطيّبة يا طيّب .. و هو ما قمت به أستاذي العزيز " الصّقر " لكن الكتابة لم تظهر إلاّ بعد الضغط داخل التاكست بوكس            

                                                                                    فائق إحتراماتي

[الصـقر]

يا غالى مجرد تكتب السنه وتضغط انتر هيكتب التاريخ بالهجرى فى التكست الاخضر 

جرب وعلمنى

تم تعديل أكتوبر 21, 2015 بواسطه الصـقر

[عبد العزيز البسكري]

يا غالى مجرد تكتب السنه وتضغط انتر هيكتب التاريخ بالهجرى فى التكست الاخضر مثلا 

جرب وعلمنى

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

[محمد الريفى]

اخى فى الله الاستاذ حسام

تسلم ايدك

ربنا يبارك فيك

[الصـقر]

اخى وحبيبى واستاذى محمد الريفى 

سلمت من كل مكروه 

وفيك بارك 

شاكر مرورك العطر

تقبل تحياتى

[ياسر خليل أبو البراء]

متميز أخي الحبيب حسام

على فكرة بدأت أطلع على موضوع الفورم وبندم إني مكنتش متابع من البداية

بصراحة شرح فوق الوصف ..بارك الله لنا فيك وزادك علماً وحلماً

[الصـقر]

اخى الحبيب والغالى ابوالبراء

مرورك هو الاروع ومشاركتك هى المميزه يا فاكهه المنتدى

وبخصوص الشرح ده اللى اتعلمناه منكم يا ابوالبراء بس اهم شئ متغبش عننا تانى

وخلينا فى بالك يا كبير

تقبل تحياتى

[المارد العراقي]

السلام عليكم 
شكراً على الاجابه وكانت في غاية الروعه  ولكن عندي سؤوال حول هذا السطر الذي ورد في الكود        ("h = Format(DateSerial(y, m, d), "0      ماذا يعني رقم الصفر ؟؟؟؟؟؟؟ 

وسؤال اخر:- 
هل يمكن عمل قائمه مسندله في VBA تكون عباره عن اسماء الاشهر دون كتابة هذه الاسماء في (ARRAY) ويمكن للفيجول بسك ان يتعرف على الاسماء بأنها تواريخ بحيث لو كتبت رقم 1 في TEXTBOX يضهر أسم الشهر ولو اخترت أسم الشهرمن القائمه مثلاً كانون الثاني يظهر رقم الشهر (1) في TEXTBOX ؟؟
بحيث يكون ذلك تلقائياً دون تعريف الرقم 1 على انه يساوي شهر كانون الثاني ؟؟؟

[الصـقر]

اخى الكريم اسف جدا نظر لضيق وقتى لانى بالدوام جرب هذا الحل

0 يعنى اجعل تنسيق التاريخ رقم يعنى تاريخ اليوم على سبيل المثال 29-10-2015م  هذا التاريخ كرقم يساوى 42306

-------------------------------------------------

بالنسبه لطلبك الثانى تعبئة الكمبوبوكس بالاشهر

جرب هذا الكود فى حدث الفورم

Private Sub UserForm_Initialize()
For i = 1 To 12
ComboBox1.AddItem Format(DateSerial(2015, i, 1), "mmmm")
Next i
End Sub

-----------------------------------------------------------------------

الطريقه الاخرى

وهذا الكود لو حبيت يكون للكمبوبوكس عدد 2 عمود عمود فيه اسماء الشهور واخر فيه ارقام الشهور

Private Sub UserForm_Initialize()
With ComboBox1
For i = 1 To 12
.AddItem Format(DateSerial(2015, i, 1), "mmmm")
.List(.ListCount - 1, 1) = Format(DateSerial(2015, i, 1), "mm")
Next i
End With
End Sub

وضع هذا الكود ايضا

Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Value
End Sub

ومتنساش فى الخاصيه Bound Column للكمبوبوكس توضع رقم 2

وايضا الخاصيه Column  count للكمبوبوكس توضع رقم 2

انصحك تراجع شروحات الفورم ستستفيد

اعذرنى لضيق وقتى كنت عايز ارفق لك فورم عليه التضبيق

تقبل تحياتى

تم تعديل أكتوبر 29, 2015 بواسطه الصـقر

[المارد العراقي]

احسنت وبارك الله فيك وجزاك خير الجزاء
ولا داعي لارفاق الفورم فالمعادله تكفي