اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

  • Like 4
  • 2 weeks later...
قام بنشر

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

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

قام بنشر

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

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

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

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

  • 1 year later...
  • 9 months later...
قام بنشر

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

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

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

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

قام بنشر

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

ومرفق تقريباً 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
قام بنشر

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

قام بنشر

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

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

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

=ConvertDate(A1)

 

  • Like 1
قام بنشر

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

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

  • Like 1
  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information