توجد طريقه سهله واكثر دقة لحساب العمر بالهجري في الاكسل وذلك باستخدام الماكرو . انا جربت عملت جدول وطبقتها عليه وطلعت مضبوطه تماما . للامانه منقول من شخص يمني اسمه عبدالله باقشير Function kh_y_m_d(D_Birth As Integer, M_Birth As Integer, Y_Birth As Integer, D_1 As Integer, M_1 As Integer, Y_1 As Integer, Optional Y_M_D As String) Dim D As Integer, M As Integer, Y As Integer If D_1 >= D_Birth Then D = D_1 - D_Birth: M = 0 Else D = D_1 + 30 - D_Birth: M = -1 If M_1 + M >= M_Birth Then M = M_1 + M - M_Birth: Y = 0 Else M = M_1 + M + 12 - M_Birth: Y = -1 Y = Y_1 + Y - Y_Birth If Y_M_D "Y" Or Y_M_D "M" Or Y_M_D "D" Then kh_y_m_d = Y & "y-" & M & "m-" & D & "d" If Y_M_D = "Y" Then kh_y_m_d = Y If Y_M_D = "M" Then kh_y_m_d = M If Y_M_D = "D" Then kh_y_m_d = D End Function
اشكرك من كل قلبي ❤
السلام عليكم ورحمة الله وبركاته
جزاكم الله خير
شرح مميز تشكر عليه
الله يعطيك الف عافيه ماقصرت سلمت يمينك
الله يعافيك
الله يسعدك
جزاكم الله خيرا
رائع مع الشكر
الله يوفقك رائع جدا اشكرك وجزاك الله خير حقيقة من افضل القنوات التي تشرح الاكسل بجودة عاليه و طريقة شرح رائعه بارك الله فيك
هل تغيير. تاريخ نظام الويندوز الى هجري او ميلادي يغير بحسبة تواريخ الاكسل
شكرا اخي الفاضل لكل مجهودك و جزاك الله خيرا ,عذرا الملف المرفق غير متوفر يبدو انه تم حذفه
استاذنا الكريم موسى كل عام وانت بخير ممكن تعمل الحسبة بس بالاعتماد على التاريخ الهجري.
استاذي شرح مميز وجميع جدا
ممكن اذا سمحت رابط الملف
ممكن الرابط؟
الله يعطيك الف عافية كفيت ووفيت ممكن رابط الملف وشكرا.
هل بإمكانك اعادة كيف استخرج السنة الهجرية والشهور والايام من فضلك انا احتاجها وشكرا
السلام عليكم شكرا يا أخي فهمت كل الشرح بس مافهمت كيف استخرج السنة الهجرية مع العلم اني عملت كل ما في الشرح
رابط ملف العمل فارغ ولايوجد به اي ملف . ممكن ترفعه على رابط اخر وشكرا
رابط العمل لا يعمل
السلام عليكم ورحمة الله ,,,, الروابط لا تعمل
اني تاريخ ميلادي 26بشهر 9 ودائما يصادف بمحرم ف كالولي احسبي ع العربي أو الهجري بس ماعرف شلون
الي يشوف تعليقي ويعرف شكد يصادف بالهجري ممكن يرد بليز 😕
انَـــاقًـةِ طِــالُبّـةِ ياسنة؟
توجد طريقه سهله واكثر دقة لحساب العمر بالهجري في الاكسل وذلك باستخدام الماكرو . انا جربت عملت جدول وطبقتها عليه وطلعت مضبوطه تماما . للامانه منقول من شخص يمني اسمه عبدالله باقشير
Function kh_y_m_d(D_Birth As Integer, M_Birth As Integer, Y_Birth As Integer, D_1 As Integer, M_1 As Integer, Y_1 As Integer, Optional Y_M_D As String)
Dim D As Integer, M As Integer, Y As Integer
If D_1 >= D_Birth Then D = D_1 - D_Birth: M = 0 Else D = D_1 + 30 - D_Birth: M = -1
If M_1 + M >= M_Birth Then M = M_1 + M - M_Birth: Y = 0 Else M = M_1 + M + 12 - M_Birth: Y = -1
Y = Y_1 + Y - Y_Birth
If Y_M_D "Y" Or Y_M_D "M" Or Y_M_D "D" Then kh_y_m_d = Y & "y-" & M & "m-" & D & "d"
If Y_M_D = "Y" Then kh_y_m_d = Y
If Y_M_D = "M" Then kh_y_m_d = M
If Y_M_D = "D" Then kh_y_m_d = D
End Function
ماهي طريقة استخدامها في الاكسل ؟
يعني انا من مواليد 2007 السنه الدراسيه ثاني متوسط حسبت العمر
13 م
14 ه
ممكن تحسب عمري بل هجري 1427/12/26
هييييي انا اكبر منك ب ست ايام😭❤️❤️
مايفتح