مساعدة ياكرام لماذا يقبل التاريخ الميلادي ولا يقبل المعادلة في التاريخ الهجري

[ابوعلي الحبيب]

السلام عليكم 

لماذا يقبل كتابة المعادلة  بالتاريخ الميلادي  

ولا يقبل المعادلة في التاريخ الهجري

تاريخ اليوم + 30

من جدول لاحد الاخوه مشكور

مساعدة ياكرام

التقويم الهجري3.rar

[Ali Mohamed Ali]

جرب أخى بعد عمل التنسيق المطلوب

 

التقويم الهجري3.rar

[ابوعلي الحبيب]

اشكرك اخي العزيز على الرد 

 

ولكن للاسف ليس هذا المقصود 

المقصود  

يوجد فورم التقويم يظهر اذا توقفت في عامود D اريد اختار منه تاريخ هجري  ثم اجمعة بموجب معادلة موجودة في عامود C 

المفروض يظهر الناتج تاريخ صحيح ولكن يظهر لي خطاء #VALUE!

هذا ملفي المرفق بالاول

التقويم الهجري3.rar

[احمدزمان]

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

اخي الفاضل ابو علي

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

ولكن اكسل لا يقراء التاريخ الهجري مباشرة الا بشرط

وهو اضافة الحرف a قبل التاريخ

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

شاهد الحل المرفق

 

اكسل هجري.rar

التقويم_الهجري3.xls

[ابوعلي الحبيب]

استاذي واخي الفاضل الاستاذ احمد زمان

عملت ما في الملف المرفق منك 
ولكن لم تظهر النتيجة بشكل تلقائي مازالت نفس رسالة الخطاء #VALUE!
حيث اريد الاكمال تلقائي 
اختار من فورم التقويم يظهر اذا توقفت في عامود D اريد اختار منه تاريخ هجري  ثم يجمعه تلقائي  بموجب معادلة موجودة في عامود C 

المفروض يظهر الناتج تاريخ صحيح ولكن يظهر لي خطاء #VALUE!
 

[احمدزمان]

اخي الفاضل

ابو علي

آسف

احترت ولم افهم المطلوب

ماهي المعادلة في العمود c

==

في الملف الذي ارفقته سابقا

اشتغلنا عليه وطلعت النتيجه مظبوطة

الآن لا ادري

آمل التوضيح اكثر بارك الله فيك

 

[ابوعلي الحبيب]

استاذي

 

 المعادلة في العمود c

هي 

=D7+30

1- انا اوريد العمل يكون دوما بواسطة فورم  التاريخ المرفق في الملف اذا توقفت على عامودD

وقمت بختيار التاريخ هجري يتم الاضافة حسب المطلوب ب عامودD وهذا لحد الان ممتاز

 

الاشكال

2- وضعت معادلة في عامود c وهي =D7+30 

بحيث يزيد التاريخ المختار 30 يوم ويظهر 

 ولكن لا يظهر رغم تنسيق عامود  d

 

اتمنى يكون واضح

 

 

التقويم الهجري3.rar

تم تعديل مارس 14, 2018 بواسطه ابوعلي الحبيب

[ابوعلي الحبيب]

مساعدة ياكرام

[احمدزمان]

سيدي الفاضل

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

لم تضع الدالة المطلوبة في العمود E

و التي ذكرتها برقم 2

هي

=VALUE("a"&D7)+30

و سوف يظهر الناتج رقم 43202

 

نفس الخلية اعمل لها تنسيق تاريخ هجري

فضلا

جرب و اخبرني بالنتيجة

 

[ابوعلي الحبيب]

استاذي الفاضل

 

وضعت المعادله في E7

=VALUE("a"&D7)+30

ولم يتغير شي 

 

 

[ابوعلي الحبيب]

اقتباس

مساعدة ياكرام 

 

[احمدزمان]

السلام عليكم

اخي الحبيب

هذا يعني ان النسخة ويدوز او اوفيس لا يوجد بها ما يسمى باستخدام تقاويم بديلة

في المشاركة السابقة رقم 4

تجد مجلد مضغوط Rar

تفتحة وتجد به ملف وورد اسمه طريقة كتابة التاريخ الهجري في برنامج الإكسيل بالشكل الصحيح

تفتحه وتنفذ الموجود به لننزيل الملف التنفيذي في مكانه الصحيح

ثم جرب مرة اخرى

 

[ابوعلي الحبيب]

للاسف لم يعمل 

 

امل المساعدة

لدي اوفيس 2016

32 بيت

 

كيف اضيف اداة اتاريخ الفورم 

او كيف احل هذي المشكلة

[ابوعلي الحبيب]

((( خير الناس انفعهم للناس )))

 

 

للاسف لم يعمل 

 

امل المساعدة

لدي اوفيس 2016

32 بيت

 

كيف اضيف اداة اتاريخ الفورم 

او كيف احل هذي المشكلة

[ابوعلي الحبيب]

((( خير الناس انفعهم للناس )))

[ابوعلي الحبيب]

((( خير الناس انفعهم للناس )))

[أسامة البراوى]

السلام عليكم

الاشكالية هنا ان الاوفيس او الويندوز بصفة عامة يقوم بحساب التواريخ الميلادية عى انها عدد الايام من يوم 1/1/1900 وبالتالى يتعامل معها كانها ارقام ويجمع ويطرح 

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

طيب نحلها ازاى دي

نرجع التاريخ الهجرى لميلادى (اللى هوا رقم وبيقبل الحسابات) اولا ثم نقوم بالعملية الحسابية ونعيد التاريخ الى ما كان عليه بالهجرى

ضيف الاكواد التالية فى ال module 

وبكدة يبقى عرفت دالة h2g للتحويل من هجرى الى ميلادي

ودالة g2h للتحويل من ميلادى الى هجرى

وبعدين غير المعادلة الى 

=g2h(h2g(D7)+30)

 

Function G2H(dtGregDate As Date) As String
    ' returns a date in Hijri format for a given western date
    VBA.Calendar = vbCalHijri
    G2H = dtGregDate
    
    VBA.Calendar = vbCalGreg
End Function

Function H2G(dtHijDate As String) As Date
    ' returns a Gregorian date in from a string containing a Hijri date
    VBA.Calendar = vbCalHijri
    H2G = dtHijDate
    
    VBA.Calendar = vbCalGreg
End Function

 

التقويم الهجري3.rar

تم تعديل أبريل 30, 2018 بواسطه أسامة البراوى

[ابوعلي الحبيب]

 

الاستاذ القدير اسامه البراوي

حقيقة عاجز عن الشكر

انت مبدع

جزاك الله خير 

وكثر من امثالك   ... 
ويبارك لك في علمك ومالك وولدك ...  
والله يوسع لك في رزقك  ...  

و يجزاك الجنة ووالديك وجميع المسلمين ...

[ابوعلي الحبيب]

الاستاذ القدير اسامه البراوي

 

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

 

 

تم تعديل مايو 1, 2018 بواسطه ابوعلي الحبيب

[ابوعلي الحبيب]

الاستاذ القدير اسامه البراوي

حقيقة عاجز عن الشكر

 

 واجهتني مشكلة

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

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

 

=IF(E7<>"";IF(E7>NOW();"باقي على إنتهاء الصلاحية "&(ROUND((E7-NOW())+1;0))&" يوم";"إنتهت الصلاحية من "&(-ROUND((E7-NOW())+1;0))&" يوم");"")

و

=I6-E6

 

فما الحل استاذي 

 

 

((( خير الناس انفعهم للناس )))

التقويم الهجري5.rar

تم تعديل مايو 1, 2018 بواسطه ابوعلي الحبيب

[ابوعلي الحبيب]

((( خير الناس انفعهم للناس )))

[ابوعلي الحبيب]

((( خير الناس انفعهم للناس )))

 

 

[ابوعلي الحبيب]

‏آللّهُمَّ صّلِ وسَلمْ علىّ ِ نِبٓينِاًّ مُحَمد ﷺ 

[ابوعلي الحبيب]

 

مساعدة ياكرام

 

((( خير الناس انفعهم للناس )))

 

 

[ابوعلي الحبيب]

 

مساعدة ياكرام

 

((( خير الناس انفعهم للناس )))