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

[Amoursi1410]

السلام عليكم ورحمة الله وبركاته  / ممكن معادلة   تحويل   التاريخ الهجري الى ميلادي ملف اكسيل مع العلم كان عندي المعادلة البسيطه دي (=DATEVALUE("a"&J10) وكانت شغاله كويس الى ان توقفت فجأة 

[أحمد يوسف]

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

[أبوســـارة1973]

السلام عليكم 

يمكن ذلك من خلال الذهاب إلى تنسيق الخلايا بالضغط على الزر الأيمن للفأرة

ثم اختيار تنسيق الخلايا ( Format Cell)

ثم اختيار الخيار الأخير مخصص ( Custom) 

ثم تنسخ النص التالي ( [$-,197]B2yyyy/mm/dd;@ ) وتضعه في مربع Type

mustafa_hejri_date.xlsx

34 دقائق مضت, أحمد يوسف said:

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

 

 

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

[أبوســـارة1973]

السلام عليكم 

يمكن ذلك من خلال الذهاب إلى تنسيق الخلايا بالضغط على الزر الأيمن للفأرة

ثم اختيار تنسيق الخلايا ( Format Cell)

ثم اختيار الخيار الأخير مخصص ( Custom) 

ثم تنسخ النص التالي ( [$-,197]B2yyyy/mm/dd;@ ) وتضعه في مربع Type

يمكن أبضا من خلال إضافة هذا الكود في مودل جديد :

Function Date_Hijri(dtGegDate As Date) As String
VBA.Calendar = vbCalHijri
Date_Hijri = dtGegDate
VBA.Calendar = vbCalGreg
End Function

وبذك تكون لديك دالة خاصة بالتاريخ الهجري 

[Amoursi1410]

في ١٧‏/١‏/٢٠١٩ at 16:41, أبوســـارة1973 said:

تم ارفاق ملف ... مع العلم انه تم نسخ المعادلة من الاخ مصطفى ولن لم يتم تفعيل الكود

 

 

Book2000.xlsx

تم ارفاق ملف الاكسيل ... مع العلم انه تم المحاولة اكثر من مرة لاضافه الكود دون جدوى 

 

ارجو المشاركه بمعادلة ابسط واوضح 

[Ali Mohamed Ali]

تفضل

 

Book2000.xlsx

[علة لخضر]

أبوســـارة1973 بارك الله فيك على مساهمتك في كود التاريخ الهجري