منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اضافه للمشروع التاريخ الميلادي والهجري

الصفحات : 1 2

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

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

السلام عليكم

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

كود :

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 يوماً

[attachment=13320]

وهنا عند اختلاف اليوم الى الأحد 29 حمادى الأولى
[attachment=13321]

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

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

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

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

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

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد مسافر

مساعدة

محمد مسافر

محمد مسافر

مساعدة

محمد مسافر

مساعدة

محمد مسافر

مساعدة

محمد مسافر