المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
25-01-17, 01:15 PM
مشروع التحويل من الميلادي الى الهجري والعكس
اريد اعمل اضافه للبرنامج بحيث تكون هناك في زر البوتون حكمه تكون خاصه باليوم وتتغير الحكمه بحسب تغير التاريخ كماهو حاصل في تقويم الورق ، وان كان عندكم افكار جديده ممكن تضيفوها وشكراً لتفاعلكم .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
ممكن التوضيح اكثر ان كان هناك امكانيه تطبيق الكود المناسب على البرنامج المرفق
اكون شاكر لك وللجميع اخي الكريم
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
جمعتكم مباركه
سلامي للجميع في هذا المنتدى ولكل الاعضاء عندي فكره جديده بل يمكن اضافه ان امكن على المشروع
هل ممكن اعرف من خلال المشروع كما في الصوره كم يوم متبقي لشهر رمضان الكريم يظهر في بند جديد اكون شاكر للجميع وسيكون مفيداً حيث ان المشروع سيكون مرجعيه لمعرفه التواريخ سواً ميلاديه او هجريه وقابل للاضافه بحسب افكاركم الجميله التي ستفيد بلا شك الجميع .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
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
الاضافه اشتغلت بشكل جيد لمعرفه كم المتبقي لشهر رمضان ، ولكن عند تغير التاريخ الهجري يظل الرقم المتبقي لشهر رمضان ثابت لايتغير والاصل يتغير حسب التاريخ الهجري زياده او نقصان
ممكن معالجه الموضوع وشكراً للجميع
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 595
المواضيع 1
الإنتساب : Dec 2016
السمعة :
45
الشكر: 0
تم شكره 544 مرات في 355 مشاركات
25-02-17, 11:29 PM
(آخر تعديل لهذه المشاركة : 25-02-17, 11:45 PM {2} بواسطة مساعدة.)
يبدو أنك تقرأ الدالة مرة وحدة،
إذا البرنامج يعمل طوال الوقت وتريد تحديث عدد الأيام باستمرار فلا بد من وضع أداة Timer لتقرأ الدالة
هذا الكود استخدم التقويم الهجري HijriCalendar إذا أردت تغييره إلى تقويم أم القرى UmAlQuraCalendar
المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
جربت وضع داله للوقت ومانفع
اما بخصوص تغييره إلى تقويم أم القرى UmAlQuraCalendar فجربت طلع باقي 90 يوم والمفترض باقي 92
شكراً لك
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
أنا قمت بالحساب للأيام المتبقية إلى دخول شهر رمضان فكانت النتيجة 85 يوماً من يوماً هذا الجمعه 3/3/2017 .
حسب تقويم أم القرى:
اليوم الجمعه هو 4 من شهر جمادى الثانية ، فيبقي 26 يومأً على اساس يوم 4 الجمعه داخل في الحسبه .
شهر رجب 29 يوماً.
شهر شعبان 30 يوماً.
وبالجمع : 26 + 29 + 30 = 85 يوماً
وزي ماتفضلت حضرتك مسألة المتبقي إلى رمضان لن يكون دقيقاً 100% لأن دخول شهر رمضان يعتمد على الرؤية للهلال ولكن بشكل تقريبي ممكن يزيد يوم او ينقص يوم .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.