[allobaed]

الاخوة الكرام
السلام عليكم
لدي برنامج و اود اظهار التاريخ الهجري في تكست بوكس فهل من يساعدني بذلك اي يصبح التعامل في البرنامج مع التاريخ الهجري

---

خلاص عرف الاجابة 
و هي باستخدام الكود 
VBA.Calendar = vbCalHijri

لتحويل البرنامج للتاريخ الهجري

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

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

الحمد لله الذي بنعمته تتم الصالحات

الحمد لله أخي ALLOBAED أنّك وُفّقت للإجابة

هل لك لو تكرّمت بوضع الكود للإستفادة

بارك الله فيك و لك مقدّمًا

تحياتي

[Ahmed_Mansoor]

أهلا إخواني الكرام , أخي عبدالعزيز , هذه الطريقة لإظهار التاريخ الهجري يجب أولا تغيير التقويم ثم عرض التاريخ بالطريقة العادية :

PHP كود :

Calendar = vbCalHijri
Text1.Text = Date 


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

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

كفيت و وفيت أخي و أستاذي الحبيب الغالي " أحمد منصور "

لا يمكن بأي حال من الأحوال تناسي أو تجاهل أفضالك علينا

أدعو الله أن يعوّضك عن كل حرف تعلّمنا إيّاه بمليون حسنة إن شاء الله
بارك الله فيك و رزقك من حيث لا تحتسب

خالص مودّتي

[AL_BRNS]

السلام عليكم

بعد الشكر للاخ احمد ولزيادة الفائدة

PHP كود :

Private Sub Command1_Click()
VBA.Calendar = 1
Print Date
End Sub 


حيث :

 vbCalGreg = (التقويم الميلادي)  = 0

vbCalHijri = (التقويم الهجري) = 1

ولاظهار التاريخ مع اسم اليوم والشهر

PHP كود :

Private Sub Command1_Click()
VBA.Calendar = vbCalHijri
Print Format(Now, "(dddd) (yyyy/mmm/dd)")
End Sub 


 

اتمني التوفيق للجميع .

[allobaed]

جزاكم الله جميعا ( عبد العزيز البسكري و أحمد منصور و AL_BRNS ) خير الجزاء و وفقكم في دينكم و دنياكم اجمعين على هذه الردود الطيبة
و ليس لي اي اضافة اخرة