• 0
faife

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

سؤال

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

استخدم الكود التالي لعرض التاريخ الهجري 

=Format(Date();"yyyy/mm/dd""هـ""")

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

أقترح عليك استخدام الوظيفة التالية

Function HijriDate(Optional AdjVal As Variant = 0)
'-- preforming Hijri calendar date
    Calendar = vbCalHijri
    HijriDate = Format(DateSerial(Year(Date), _
    Month(Date), Day(Date) + (AdjVal)), "yyyy\هـ/mm/dd")
End Function

'-- لزيادة الأيام
YouField = HijriDate(+1)

'-- لنتنقيص الأيام
YouField = HijriDate(-1)

وهذا المثال

 

AdjustableHijriDate.accdb

تم تعديل بواسطه Gaham
وجود خطأ في الشفرة السابقة (تم التصحيح)
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك .... هذا هو المطلوب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .