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

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

السلام عليكم إخواني الكرام

كل عام وأنتم بخير ...

أقدم لكم دالة تقوم بالتحويل من التاريخ الهجري إلى الميلادي

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

لمزيد من التفاصيل يرجى زيارة الرابط التالي

رابط الموضوع من هنا

[احمدزمان]

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

 

جزاك الله كل خير اخي ياسر

 

رااااااااااااائع جدا كــ عادتك

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

مشكور جدا على مرورك الطيب والعطر أستاذي الكبير أحمد

بارك الله فيك على تشجيعك لتلميذك

[حسين البحار]

شكرا اخي العزيز

[قصي]

جزاك الله كل خير وبارك لك اخي الاستاذ ياسر

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

الأخ الحبيب حسين البحار

بارك الله فيك على مرورك الكريم

 

الأخ قصي

بوركت وجزيت خيرا أخي الغالي

[احب العلم]

أحسنت أستاذي العزير عمل رائع

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

أحسنت أستاذي العزير عمل رائع

الأروع هي مشاركتكم إخواني في انتفاع المسلمين بكل ما نتعلمه

[Mando_Mam]

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

[أبو إيمان]

الأستاذ ياسر جزاكم الله خيرا وعمل رائع لكن اعذرني لي سؤال وهو لماذا يتم استخدام الدوال في حين يمكن عمل ذلك عن طرق التنسيقات

اعذرني على سؤالي وتقبل تحياتي

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

الأستاذ ياسر جزاكم الله خيرا وعمل رائع لكن اعذرني لي سؤال وهو لماذا يتم استخدام الدوال في حين يمكن عمل ذلك عن طرق التنسيقات

اعذرني على سؤالي وتقبل تحياتي

لاختلاف التقويم الميلادي والتقويم الهجري ، الموضوع معقد نوعاً ما ..

إن شاء الله تكون الدالة أدت الغرض ....

[وليد سالم]

قم بعمل تخصيص للتاريخ كالتالي:

B2dd/mm/yyyy

ازاي

كليك يمين

format cells

number===custom

ثم كتابة في ال TYPE

B2dd/mm/yyyy

ثم

OK

 

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

أخي الكريم وليد

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

[Yasser Fathi Albanna]

دائما روعة أخى الحبيب / ياسر

جزيت خير الجزاء على الأعمال الرائعة التى تقدمها

تقبل تحياتى

 

[Medo Basha]

السلام عليكم  .. عندي مشكلة لو تكرمتم .. وأرجو المساعدة في حلها 

عندي ملف اكسل يوجد به حوالي 90,000 صف والتاريخ موجود فيها عبارة نص بالتاريخ الهجري 

وأريد أن أحوله إلى التاريخ الميلادي ولكن عند تحويله يجب أن اضغط على الخانة التي بها التاريخ ثم انتر 

فهل هناك حل لهذه المشكلة .. تحياتي للأخو الأعضاء

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

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

أخي الكريم ارفق جزء من الملف وليكن 30 صف للإطلاع عليه ..

[Medo Basha]

السلام عليكم .. أشكرك على ردك 

ومرفق تقريباً 100 صف به تاريخ هجري للاطلاع والمحاولة

ولكم التحية والتقدير

 

25/12/1439

28/08/1436

25/03/1440

19/08/1436

26/03/1440

17/06/1436

26/11/1439

13/09/1439

21/03/1438

26/06/1439

08/03/1438

18/09/1439

12/05/1440

24/08/1439

19/05/1437

20/09/1439

27/06/1435

25/12/1439

28/08/1436

19/08/1439

26/03/1440

20/09/1438

17/06/1439

26/11/1436

21/03/1438

03/07/1439

26/06/1439

08/01/1438

19/05/1437

27/05/1439

13/05/1439

25/12/1439

25/03/1440

26/03/1440

20/09/1438

17/06/1436

03/07/1439

26/06/1439

16/06/1439

19/05/1437

25/04/1440

06/01/1440

20/06/1437

09/02/1437

03/08/1439

21/11/1438

13/05/1439

15/01/1438

17/06/1432

08/03/1438

06/06/1439

18/09/1439

21/12/1439

20/09/1439

17/03/1440

22/09/1434

10/01/1432

25/12/1439

28/08/1436

25/03/1440

26/03/1440

20/03/1438

25/10/1438

22/01/1438

08/03/1438

06/06/1439

18/09/1439

19/05/1437

20/09/1436

29/01/1438

08/05/1439

25/12/1439

28/08/1436

25/03/1440

26/03/1440

04/01/1440

20/03/1438

06/06/1439

18/09/1439

19/05/1440

20/09/1439

18/05/1438

25/02/1439

25/12/1439

25/03/1440

14/09/1439

06/06/1439

18/09/1436

19/05/1437

20/09/1436

16/05/1438

26/05/1439

11/07/1437

25/12/1439

28/08/1439

26/03/1440

05/02/1438

06/06/1439

18/09/1436

16/05/1438

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

أخي الكريم اضغط ملفك وارفقه بالمشاركة .. ليساعدك الأخوة الأعضاء في حل المشكلة إن شاء الله

[Medo Basha]

صعب اضغطه لأنه غير مصرح لنا ببرامج الضغط ، ZIP or RAR ولكن العينة المرسلة اتوقع تكفي للمحاولات .. ولكم الشكر .. تحياتي

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

للمزيد حول الموضوع قم بزيارة الرابط في أول الموضوع لمعرفة كيفية تطبيق الدالة

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

المعادلة بالشكل التالي

=ConvertDate(A1)

 

[Medo Basha]

يا سيدي الفاضل لو تكرمت ترسلها لي لأن الملف لا يفتح عندي .. وشكراً لتعاونك 

01/01/1438	#NAME?
01/01/1439	#NAME?
01/01/1439	#NAME?
01/01/1439	#NAME?
01/01/1439	#NAME?
01/01/1439	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?
01/01/1438	#NAME?

يا سيدي الفاضل لو تكرمت ترسلها لي لأن الملف لا يفتح عندي .. وشكراً لتعاونك 

أسف على الإطالة يا أستاذ ياسر أبو البراء .. ولكم الشكر والتقدير 

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

أخي الكريم هذا هو رابط الموضوع الأصلي

http://yasserkhalilexcellover.blogspot.com.eg/2016/10/hijri-gregorian-converter.html

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

 

TestThis.rar

[Medo Basha]

جزاكم الله كل خير وبارك فيكم .. تحياتي

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

وجزيت خيراً بمثل ما دعوت لي أخي الكريم

الحمد لله أن تم المطلوب على خير

[محمد السباعي]

جزاك الله خيرا 

ربنا يجعله في ميزان حسناتك