فورم لتخزين التاريخ ميلادي و هجري

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

Calendar = vbCalHijri
Label1.Caption = Date

لتاريخ الميلادي

Calendar = vbCalGreg
Label1.Caption = Date

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

الخ الكريم المبرمج 2

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

ورمضان كريم

نفرض أنك لديك حقلي نص

txtGreg لعرض التاريخ الميلادى مثلاً من الجهاز

txtHijri لعرض التاريخ الهجرى مستنبط من حقل التاريخ الميلادى

Calendar = vbCalGreg

txtGreg.text=format(now,"yyyy/mm/dd")

Calendar = vbCalHijri

txtHijri.text=format(txtGreg.text,"yyyy/mm/dd")

Calendar = vbCalGreg

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

السلام عليكم

شكرا جزيلا يا شباب على الردود

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

هذة الفكرة وجدتها في موقع الاستاذ تركي العسيري

و لكن انا اريد المساعدة في بناء الفورم الذي من خلالة استطيع استدعاء التاريخ المعين و ضبطة على التاريخ المقابل لة ميلادي

مثلا التاريخ اليوم 4/10/2007 الموافق 22/9/1428

باستخدام Calendar يطلع الموافق 23/9/1428

جربوها

اذن لابد من استخدام الطريقة التي ذكرتها بس ارجو منكم المساعدة في كيفية بناء الفورم و تعديل قاعدة البيانات عند ضبط التاريخ

لكم جزيل الشكر