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

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

قام بنشر

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

 

اخواني اسعدكم الله 

 

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

 

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

date.rar

قام بنشر

السلام عليكم

 

استخدم الدالة المعرفة التالية:


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

تحياتي

date11.rar

قام بنشر

السلام عليكم
فى الحل الاول بالداله المعرفة وهى من الاستاذ عبدالله المجرب فإنها تفرق يوم عن التاريخ الصحيح
وكذلك بالنسبة للداله المعرفة من قبل الاستاذ عبدالله باقشير فإنها تفرق يوم عن التاريخ الصحيح
وهذه المشكلة موجودة بالفعل منذ اختلاف التقويم عن الواقع فى التاريخ الهجرى
واتمنى من الله ان يرزقك احبائى واساتذتى الى الحل فى هذا الموضوع الذى يؤرق الكثيرون

قام بنشر (معدل)

أخي الكريم // يوسف

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

للتغلب علي مشكلة فروق التاريخ الهجري

قم باضافة يوم علي المعادلة وهاتظبط كالتالي

=IF(A2<>"";Um2Greg(UmDay(A2)+1;UmMonth(A2);UmYear(A2));"") 

راجع المرفق

date- abo adam.rar

تم تعديل بواسطه أبو أدم
قام بنشر (معدل)

الاخ ابو ادم

 

والاخ باقشير 

 

اشكركم جميعا والله يكتب لكم الاجر

 

فعلا ما قصرتوا

 

واشكر الاستاذ يوسف على التعقيب والمتابعة

تم تعديل بواسطه MsTaNs

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