خلية تاريخ هجري وتاريخ ميلادي

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

وفقك الله

اخي العزيز علي

البرنامج يعمل على التاريخين

استعمل هذا الامر لتحويل التقويم الي النظام الهجري عندما تحتاج اليه

Calendar = vbCalHijri

وهذا للتقويم الميلادي

Calendar =vbCalGreg

وفقك الله

مشاركة :

لا يمكن للبرنامج أن يعمل على التقويمين

فالبرنامج سيتعامل مع أحد التاريخين على أنه تاريخ ، والآخر سيعامل على أنه نص أو رقم ولا يمكن أن يعامل على أنه تاريخ .

فعليك أن تختار :

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

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

للرفع

هذا كود متواضع لتحويل التاريخ إلى خلاف التقويم المستخدم في القاعدة

أي أنك إذا كنت تستخدم التقويم الميلادي فسيحول إلى التاريخ الهجري ، والعكس

علما بأنه سبق طرح أكواد أكثر احترافا وأكثر تنويعا في الاستخدام في هذه المنتديات .

Function anotherCal(ByVal InDate As Variant, ByVal InFormat As String) As String

Dim CurrentCal As Byte

If Not IsDate(InDate) Then Exit Function

InDate = CDate(InDate)

If Not IsDate(Format(InDate, InFormat)) Then Exit Function

CurrentCal = Calendar

If Calendar = vbCalHijri Then Calendar = vbCalGreg Else Calendar = vbCalHijri

anotherCal = Format(InDate, InFormat)

Calendar = CurrentCal

End Function

ومرفق مثال

2cal.zip

اخي العزيز حارث

انني امتن لك بالشكر

بارك الله فيك ولك الاجر والثواب

إذا كان طلبك هو عرض التاريخ الحالي على نموذج أو تقرير فإليك التالي:

قم بوضع عنصري مربع نص على النموذج أو التقرير.

سمي كلا منهما وليكن مثلا txtHD ، txtGD

اكتب الشفرة التالية في حدث (عند التحمل)

ستعمل هذه الشفرة إذا كان المطلوب ما ذكرت لك. أما إذا كان طلب غير ذلك فأرجو إعلامي بما تريد