تثبيت نهاية التاريخ الهجري يكون وقت السداد

[mazen323]

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

 

احتاج لعمل معادلة يكون تاريخ تحصيل القسط  نهاية كل شهر هجري ....استخدمت احد المعادلات ولكن تصلح للميلادي....اما الهجري كان تاريخ السداد يتحرك ...السؤال هل يوجد معادلة تثبت التاريخ بحيث يكون 30 من كل شهر هجري او اقل شي 29 من كل شهر هجري. اهم حاجة تكون شوي منطقي 28 او 29 وممتاز لو كان 30 من كل شهر.

 

تحياتي 

نهاية كل شهر هجري.rar

[حسين العصلوجى]

طالما ان تاريخ القسط ثابت وهو اخر يوم فالشهر فهذه معادلة لا تعتمد علي معادلات التاريخ والوقت لكن معادلة نصية 

جرب المرفق لعله يفى بالغرض

 

H-التاريخ الهجري.rar

 

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

السلام عليكم

الشكرواصل للاخ حسين ........حفظه الله

ائراءا للموضوع

هذه دالة بالكود

Option Explicit

Function kh_EDateHijri(sDate, Months As Integer)
Dim MyDate As Date
Calendar = vbCalHijri
'----------------------
MyDate = DateSerial(Year(sDate), Month(sDate) + Months + 1, 0)
If Day(MyDate) = 1 Then MyDate = MyDate - 1
'----------------------
kh_EDateHijri = Format(MyDate, "dd/mm/yyyy")
'----------------------
Calendar = vbCalGreg
End Function

المرفق 2003

الفترة لآخر الشهر بعدد اشهر معين (هجري(.rar

[محمود_الشريف]

الأستاذ الرائع / عبد الله باقشير

الأستاذ / حسين

بارك الله فيكم 

دائما تأتوا بأفكار متميزة ومجهود أكثر من رائع

زادكم الله من فضله 

[احمدزمان]

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

 

اضافة الى حل اخي حسين

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

 

هذا حل آخر باستخدام الدوال

بعد ادخال اول تاريخ هجري لأول قسط

 

ثم يأخذ اليوم من اول تاريخ مدخل

نهايةشهرهجري.rar

[mazen323]

اشكركم جميعا ...الله يجزاكم كل خير اخواني الاعزاء