طلب طريقة ادخال التاريخ بالهجري والخلية المقابلة يتحول التاريخ ميلادي

[oozzoo]

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

اخواني انا لدى عدد من الخلايا  مثال A1   التاريخ بالعربي 16/04/1438هـ   والخلية B1 يكون التاريخ بالميلادي بشكل مبرمج آلي بدون كتابة 

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

 

مثال مرفق 

[ياسر خليل أبو البراء]

وعليكم السلام

قم بالإطلاع على الرابط التالي

الرابط من هنا

[oozzoo]

سلام عليك اخي ياسر خليل بارك الله فيك وجزاك الله كل خير 

 

تم حل المشكلة بفضل الله ثم بفضلك 

[oozzoo]

سلام عليك اخي ياسر خليل بارك الله فيك وجزاك الله كل خير 

 

تم حل المشكلة بفضل الله ثم بفضلك 

 

من خلال ملف المرفق لكن عند فتح عمل جديد وتطبيق الكود الخاص بالتحويل تظهر لي مشكلة تم تصويرها للتوضيح

لايظهر كامل الكود كونفيرت وعند نسخة ولصقة يظهر لي Naem? 

 

الصور مرفقة بارك الله فيك 

الاوفس 2007 عربي

 

 

طبعآ هو بيزبط معي في حالة وضع الكود في انسيرت لصق الكود بس كل مرة اسوي كذا او هو اتومتيك بضيف تلقائي

Function ConvertDate(ByRef StringIn As String) As String
    Dim savedCal As Integer
    Dim d As Date
    Dim s As String
    
    savedCal = Calendar
    Calendar = 1
    d = CDate(StringIn)
    Calendar = 0
    s = CStr(d)
    ConvertDate = Format(s, "dd/mm/yyyy")
    Calendar = savedCal
End Function

[ياسر خليل أبو البراء]

أخي الكريم قم بالدخول لمحرر الأكواد في ملفك عن طريق Alt + F11

قم بنسخ الدالة المعرفة داخل موديول جديد .. احفظ ملفك بامتداد xlsm .. وإن شاء الله تظبط معاك