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

[abumalak]

إخواني عندي هالمرفق مكتوب بالهجري ومعه اليوم
ابي النتائج تكون بالميلادي وجربت الطريقه التي عن طريق تنسيق الخلايا ولكن ماضبطت معي

فهل من طريقه او كود احل فيه هالمشكله

ولكم الشكر والعرفان اخواني

ابو ملاك

Book3.rar

[عبدالله باقشير]

السلام عليكم

عملنا دالة بكود ادناه

لاستخلاص التاريخ الهجري من النص وتحويله الى ميلادي

Option Explicit


Function kh_HijToMilady(Textdate As String)

Dim dt As String

Dim kh_Calendar As Integer

dt = Trim(Mid(Textdate, InStr(Textdate, " "), 255))

dt = Replace(dt, "هـ", "")

kh_Calendar = Calendar

Calendar = vbCalHijri

If IsDate(dt) Then kh_HijToMilady = CDate(dt)

Calendar = kh_Calendar

End Function

شاهد المرفق2003

تحويل التاريخ الهجري الى ميلادي.rar

[جمال الفار]

بسم الله ما شاء الله

عمل رائع من استاذ كبير ورائع

تلميذك جمال الفار

[عبدالله باقشير]

بسم الله ما شاء الله

عمل رائع من استاذ كبير ورائع

تلميذك جمال الفار

اخي الحبيب جمال الفار حفظه الله

اكرمك الله ورفع قدرك وجزاك خيرا

تقبل تحياتي وشكري

[abumalak]

الف شكر لك أخي الغالي

وعيني عليك بارده وربي يحميك من كل شر

طيب ياغالي ممكن تعطيني الطريقه كيف أعدل في هذا الكود أين هو موجود هذا الكود ؟

ولك أجمل تحيه

[عبدالله باقشير]

الف شكر لك أخي الغالي

وعيني عليك بارده وربي يحميك من كل شر

طيب ياغالي ممكن تعطيني الطريقه كيف أعدل في هذا الكود أين هو موجود هذا الكود ؟

ولك أجمل تحيه

اضغط

ALT+F11

CTRL+R

حتلاقيه في ملف الموديل

موديل1

[عبدالله باقشير]

تم تعديل العنوان

[عبدالله المجرب]

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

[عبدالله باقشير]

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

حفظك ربي

تقبل شكري وتقديري

[الجزيرة]

أخي الفاضل / عبدالله

مبدع كما هي عادتك

[عبدالله باقشير]

اخي الجزيرة حفظك ربي

تقبل شكري وتقديري

[Ahmed Elbhiry]

السلام عليكم

عملنا دالة بكود ادناه

لاستخلاص التاريخ الهجري من النص وتحويله الى ميلادي

Option Explicit


Function kh_HijToMilady(Textdate As String)

Dim dt As String

Dim kh_Calendar As Integer

dt = Trim(Mid(Textdate, InStr(Textdate, " "), 255))

dt = Replace(dt, "هـ", "")

kh_Calendar = Calendar

Calendar = vbCalHijri

If IsDate(dt) Then kh_HijToMilady = CDate(dt)

Calendar = kh_Calendar

End Function

شاهد المرفق2003

احسنت وابدعت

استاذنا عبد الله باقشير

[بعيد التفكير]

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

 

الله يعطيكم العافية على الجهد القيم

استاذنا عبد الله باقشير
 

 

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

مثلاً 16/05/1440

بدزن يوم او حرف الهجري

جزيتم خير الجزاء

تم تعديل أبريل 7, 2013 بواسطه بعيد التفكير

[عبدالله باقشير]

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

 

الله يعطيكم العافية على الجهد القيم

استاذنا عبد الله باقشير

 

 

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

مثلاً 16/05/1440

بدزن يوم او حرف الهجري

جزيتم خير الجزاء

 

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

تفضل هذا التعديل

 

Function kh_HijToMilady(Textdate As String)
Dim kh_Calendar As Integer
kh_Calendar = Calendar
Calendar = vbCalHijri
If IsDate(Textdate) Then kh_HijToMilady = CDate(Textdate)
Calendar = kh_Calendar
End Function

 

في امان الله

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

ماشاء الله

بارك الله لك ايها

العالم العلامة عبد الله

[بعيد التفكير]

مشكور ورحمك الله 

مضبوطة العملية  الي التاريخ  نفس ما اريد

[عدنان صبياني]

تحية طيبة وبعد

 

هذا تقريبا ما ابحث عنه فقط تعديل بسيط ان امكن ممكن يكون التاريخ الهجري بدون اسم اليوم على سبيل المثال  ( 01/01/1435 )  و يطلع في العمود الاخر 02/01/2014 فقط ماهو مطلوب اكثر من كذا

 

و اكون لكم من الشاكرين

[عبدالله باقشير]

تحية طيبة وبعد

 

هذا تقريبا ما ابحث عنه فقط تعديل بسيط ان امكن ممكن يكون التاريخ الهجري بدون اسم اليوم على سبيل المثال  ( 01/01/1435 )  و يطلع في العمود الاخر 02/01/2014 فقط ماهو مطلوب اكثر من كذا

 

و اكون لكم من الشاكرين

 

استخدم الكود في المشاركة 14

 

تجياتي

[عدنان صبياني]

والله يا اخي لو تخدمني وتقلي كيف ماني عرف

اكون لك من الشاكرين

[عبدالله باقشير]

والله يا اخي لو تخدمني وتقلي كيف ماني عرف

اكون لك من الشاكرين

 

شاهد المرفق 2003

تحويل التاريخ الهجري الى ميلادي.rar

[عدنان صبياني]

الف الف الف شكر و جزاك الله خير و اسكنك الفردوس

[abohasan911]

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

ماشاء الله لا قوة الا بالله

[علي فاهم]

[IA You]

On 4/7/2013 at 9:48 PM, عبدالله باقشير said:

 

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

تفضل هذا التعديل

 

 

Function kh_HijToMilady(Textdate As String)
Dim kh_Calendar As Integer
kh_Calendar = Calendar
Calendar = vbCalHijri
If IsDate(Textdate) Then kh_HijToMilady = CDate(Textdate)
Calendar = kh_Calendar
End Function

 

جزاك الله خيرا يا استاذ عبدالله بس هموت واعرف kh اختصار لايه ؟؟؟