معادلة رياضية لتحويل التاريخ

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

بعد أن تلصق text1 , text2 في الفورم إلصق مايلي في حدث الفورم لود أو أي كوماند ونفذ البرنامج :

Date = Now

datm = Format(Date, "yyyy/mm/dd") 'تاريخ ميلادي

Calendar = vbCalHijri

dath = Format(Date, "yyyy/mm/dd") ' تاريخ هجري

text1.text=datm

text2.text=dath

بالنسبة لمعادلة تحويل التاريخ موجودة ولكن تحتاج لبرنامج ، وهناك عدة برامج بالأسواق لهذا الغرض .

الأخ العزيز

بالنسبة لموضوع التاريخ الهجري

راجع الصفحة الريسية للموقع وسوف تجد فيها المطلوب

ولكن أنا جربت هذه الطريقة ونجحت معي ولكن عندما أغلقة الجهاز

وأعدت تشغيله وجدت مشاكل كثيرة في أوركل

ـــــــــــــــــــــ

وآخر دعونا أن الحمد لله رب العالمين