[محمد مسافر]

مشروع التحويل من الميلادي الى الهجري والعكس

اريد اعمل اضافه للبرنامج بحيث تكون هناك في زر البوتون حكمه تكون خاصه باليوم وتتغير الحكمه بحسب تغير التاريخ كماهو حاصل في تقويم الورق ، وان كان عندكم افكار جديده ممكن تضيفوها وشكراً لتفاعلكم .

[مساعدة]

السلام عليكم


تستطيع استغلام معرفة رقم اليوم من السنة لمؤشر لعنصر من مصفوفة فيه مجموعة من الحكم
ولكن يجب أن تكون عدد عناصر المصفوفة أكثر إن لم تساوي عدد أيام السنة

كود :

Dim days As Integer = Today.DayOfYear
MsgBox(Hekmah(days-1)
' على أساس أن أول عنصر من المصفوفة يشار له بالرقم صفر

[محمد مسافر]

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

اكون شاكر لك وللجميع اخي الكريم

[محمد مسافر]

جمعتكم مباركه

سلامي للجميع في هذا المنتدى ولكل الاعضاء عندي فكره جديده بل يمكن اضافه ان امكن على المشروع

هل ممكن اعرف من خلال المشروع كما في الصوره كم يوم متبقي لشهر رمضان الكريم يظهر في بند جديد اكون شاكر للجميع وسيكون مفيداً حيث ان المشروع سيكون مرجعيه لمعرفه التواريخ سواً ميلاديه او هجريه وقابل للاضافه بحسب افكاركم الجميله التي ستفيد بلا شك الجميع .

[مساعدة]

السلام عليكم

المتبقي لشهر رمضان في هذا الموضوع
[سؤال] البخث فقط عن اليوم و الشهر

[محمد مسافر]

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    MsgBox(daysToRamadan)
End Sub

' دالة تعيد عدد الأيام المتبقية إلى رمضان القادم '
Public Function daysToRamadan() As Integer
    Dim hijri As New Globalization.HijriCalendar
    Dim dateRamadan As Date = New Date(hijri.GetYear(Now), 9, 1, hijri)
    If Now > dateRamadan Then dateRamadan = New Date(hijri.GetYear(Now) + 1, 9, 1, hijri)
    Return DateDiff(DateInterval.Day, Now, dateRamadan)
End Function 


الاضافه اشتغلت بشكل جيد لمعرفه كم المتبقي لشهر رمضان ، ولكن عند تغير التاريخ الهجري يظل الرقم المتبقي لشهر رمضان ثابت لايتغير والاصل يتغير حسب التاريخ الهجري زياده او نقصان

ممكن معالجه الموضوع وشكراً للجميع

[مساعدة]

يبدو أنك تقرأ الدالة مرة وحدة،

إذا البرنامج يعمل طوال الوقت وتريد تحديث عدد الأيام باستمرار فلا بد من وضع أداة Timer لتقرأ الدالة

---

هذا الكود استخدم التقويم الهجري HijriCalendar إذا أردت تغييره إلى تقويم أم القرى UmAlQuraCalendar

[محمد مسافر]

جربت وضع داله للوقت ومانفع

اما بخصوص تغييره إلى تقويم أم القرى UmAlQuraCalendar فجربت طلع باقي 90 يوم والمفترض باقي 92

شكراً لك

[مساعدة]

أنا قمت بالحساب للأيام المتبقية إلى دخول شهر رمضان فكانت النتيجة 90 يوماً.

حسب تقويم أم القرى:
اليوم السبت هو 28 من شهر جمادى الأولى 30 يوماً، فيبقي يومان.
شهر جمادى الثانية 29 يوماً.
شهر رجب 29 يوماً.
شهر شعبان 30 يوماً.
وبالجمع: 2 + 29 + 29 + 30 = 90 يوماً

   

وهنا عند اختلاف اليوم الى الأحد 29 حمادى الأولى
   

---

عموماً مسألة المتبقي إلى رمضان لن يكون دقيقاً 100% لأن دخول شهر رمضان يعتمد على الرؤية للهلال.

---

ضع مشروعك ليتم معرفة طريقة عمله وتصحيح ما يلزم.

[محمد مسافر]

أنا قمت بالحساب للأيام المتبقية إلى دخول شهر رمضان فكانت النتيجة 85 يوماً من يوماً هذا الجمعه 3/3/2017 .

حسب تقويم أم القرى:
اليوم الجمعه  هو 4 من شهر جمادى الثانية  ، فيبقي 26 يومأً على اساس يوم 4 الجمعه داخل في الحسبه .
شهر رجب 29 يوماً.
شهر شعبان 30 يوماً.

وبالجمع : 26 + 29 + 30 = 85 يوماً


وزي ماتفضلت حضرتك مسألة المتبقي إلى رمضان لن يكون دقيقاً 100% لأن دخول شهر رمضان يعتمد على الرؤية للهلال ولكن بشكل تقريبي ممكن يزيد يوم او ينقص يوم .