عايز حل في حساب ايام السنه

اخي الفاضل ابو الذهب

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

عدد ايام السنة الهجرية القمرية او الهلالية ( الذي نستخدمه الآن ) تساوي 354 يوما و 6 ساعات و 48 دقيقة و 36 ثانية اما السنة الهجرية الشمسية ( الفارسية ) فهي 365 يوما وكذلك السنة الميلادية فهي إما ان تكون 366 ( 30 أو 31 أو 28 ) لثبوت السنة وأيامها إلا في السنة ( الكبيسة ) والتي يتغير فيها شهر فبراير من 28 يوماً إلى 29 لتزيد عدد ايام السنة إلى (367) يوماً حيث الفرق واضح جدا بين السنة الهجرية القمرية 354 يوما والسنة الميلادية 365 يوما بحوالي 11 يوما تقريبا . فلا تحاول الخلط بين التقومين لآن عدد ايام اشهر السنة الميلادية دائما ثابت اما عدد ايام اشهر السنة الهجرية فهو مختلف .

الفرق بين التاريخين 1427/01/01 و 1428/01/01 هو 354 يوما

الفرق بين التاريخين 2006/01/01 و 2007/01/01 هو 365 يوما

هذه الدالة لحساب طول السنة الهجرية الاصطلاحية كانت أم الميلادية الجريجورية

بعيدا عن عن استخدام تقاويم الأكسس

Function YearLen(yy As Long, Cal As VbCalendar)
  Dim Seq As Byte, Leap As Byte
  'vbCalGreg  = 0
  'vbCalHijri = 1

  Select Case Cal
	Case vbCalGreg
	  Leap = IIf((yy Mod 4 = 0 And yy Mod 100 <> 0) Or yy Mod 400 = 0, 1, 0)
	  YearLen = 365 + Leap
	Case vbCalHijri
	  Seq = (yy - 1) Mod 30 + 1
	  Leap = (Round(Seq * 354.367) - Round((Seq - 1) * 354.367)) - 354
	  YearLen = 354 + Leap
  End Select
End Function

وهنا إجراء لكيفية استخدام الدالة

Sub Test()
   MsgBox YearLen(1427, vbCalHijri), , 1427
   MsgBox YearLen(2007, vbCalGreg), , 2007
End Sub

إبحث عن تقويم أم القرى فله أكواد خاصة به إن أردت

التقويم الهجري الشمسي منه ثلاثة تقاويم

- الإصطلاحي

- أم القرى

- المستخدم بإيران وهو أدق تقويم شمسي على الإطلاق

وجميعها تقاويم هجرية إسلامية

مشكوره اختي zahrah ماقصرتي ويعطيك العافية على الشرح الوافي وانت راعية الاوله والف شكر

شاب الذي يعرف يعدل البرنامج والف شكرله مني