اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


MsTaNs

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

السلام عليكم

 

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


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

تم تعديل بواسطه أبو أدم
رابط هذا التعليق
شارك

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