مطلوب معرفت تاريخ معين

[qathi]

اساتذتي واخواني الأفاضل أعضاء منتدانا الرائع

أسأل الله أن تكونوا في اتم الصحة والعافية

 

طلب غريب وبسيط.. لكنه مهم جدا .. ولا يعجز اساتذتي الأفاضل الذي عودونا بكرمهم وتضحياتهم لنا

محتاج ملف أو التاريخ بالدقه من دون خطاء

لأخر يوم الخميس من شهر رجب عام 1999

باليوم والشهر والسنه ( بالميلادي والهجري )

 

أعرف أن التاريخ مخلوط بين الهجري والميلادي .. لكن انتم لها

 

[AbuuAhmed]

04/11/1999

26/07/1420 هجري   و   أم القرى.

هل هذا المطلوب أم تريده بكود برمجي؟ 🙂 

[AbuuAhmed]

Sub GetLastThursdayInRajab1999()
    Dim CurCal As VbCalendar, Days As Long
    
    CurCal = Calendar
    
    Calendar = vbCalGreg
    Days = DateSerial(1999, 12, 31)
    
    Calendar = vbCalHijri
    Do While Month(Days) <> 7
        Days = Days - 28
    Loop
    
    Days = DateSerial(Year(Days), 8, 0)
    Do While Weekday(Days) <> vbThursday
        Days = Days - 1
    Loop
    
    Calendar = vbCalGreg
    Debug.Print CDate(Days)
    
    Calendar = CurCal
End Sub

 

تم تعديل ديسمبر 5, 2022 بواسطه AbuuAhmed

[qathi]

12 ساعات مضت, AbuuAhmed said:

04/11/1999

26/07/1420 هجري   و   أم القرى.

هل هذا المطلوب أم تريده بكود برمجي؟

المهم ان التاريخ صحيح ودقيق

هذا هو المطلوب أستاذي أبو أحمد .. أن شاء الله .. بارك الله فيك

وجزاك الله عني خير .. بدائت اتعود على ردودك وحلولك الرائعة .. أسأل الله أن يسعدك بالدنياء والأخرة ..كما تسعدني بحلولك