+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] اضافه للمشروع التاريخ الميلادي والهجري (/showthread.php?tid=18953)
الصفحات:
1
2
اضافه للمشروع التاريخ الميلادي والهجري - محمد مسافر - 25-01-17
مشروع التحويل من الميلادي الى الهجري والعكس
اريد اعمل اضافه للبرنامج بحيث تكون هناك في زر البوتون حكمه تكون خاصه باليوم وتتغير الحكمه بحسب تغير التاريخ كماهو حاصل في تقويم الورق ، وان كان عندكم افكار جديده ممكن تضيفوها وشكراً لتفاعلكم .
RE: اضافه للمشروع التاريخ الميلادي والهجري - مساعدة - 25-01-17
السلام عليكم
تستطيع استغلام معرفة رقم اليوم من السنة لمؤشر لعنصر من مصفوفة فيه مجموعة من الحكم
ولكن يجب أن تكون عدد عناصر المصفوفة أكثر إن لم تساوي عدد أيام السنة
كود :
Dim days As Integer = Today.DayOfYear
MsgBox(Hekmah(days-1)
' على أساس أن أول عنصر من المصفوفة يشار له بالرقم صفرRE: اضافه للمشروع التاريخ الميلادي والهجري - محمد مسافر - 27-01-17
ممكن التوضيح اكثر ان كان هناك امكانيه تطبيق الكود المناسب على البرنامج المرفق
اكون شاكر لك وللجميع اخي الكريم
RE: اضافه للمشروع التاريخ الميلادي والهجري - محمد مسافر - 23-02-17
جمعتكم مباركه
سلامي للجميع في هذا المنتدى ولكل الاعضاء عندي فكره جديده بل يمكن اضافه ان امكن على المشروع
هل ممكن اعرف من خلال المشروع كما في الصوره كم يوم متبقي لشهر رمضان الكريم يظهر في بند جديد اكون شاكر للجميع وسيكون مفيداً حيث ان المشروع سيكون مرجعيه لمعرفه التواريخ سواً ميلاديه او هجريه وقابل للاضافه بحسب افكاركم الجميله التي ستفيد بلا شك الجميع .
RE: اضافه للمشروع التاريخ الميلادي والهجري - مساعدة - 24-02-17
السلام عليكم
المتبقي لشهر رمضان في هذا الموضوع
[سؤال] البخث فقط عن اليوم و الشهر
RE: اضافه للمشروع التاريخ الميلادي والهجري - محمد مسافر - 25-02-17
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
الاضافه اشتغلت بشكل جيد لمعرفه كم المتبقي لشهر رمضان ، ولكن عند تغير التاريخ الهجري يظل الرقم المتبقي لشهر رمضان ثابت لايتغير والاصل يتغير حسب التاريخ الهجري زياده او نقصان
ممكن معالجه الموضوع وشكراً للجميع
RE: اضافه للمشروع التاريخ الميلادي والهجري - مساعدة - 25-02-17
يبدو أنك تقرأ الدالة مرة وحدة،
إذا البرنامج يعمل طوال الوقت وتريد تحديث عدد الأيام باستمرار فلا بد من وضع أداة Timer لتقرأ الدالة
هذا الكود استخدم التقويم الهجري HijriCalendar إذا أردت تغييره إلى تقويم أم القرى UmAlQuraCalendar
RE: اضافه للمشروع التاريخ الميلادي والهجري - محمد مسافر - 26-02-17
جربت وضع داله للوقت ومانفع
اما بخصوص تغييره إلى تقويم أم القرى UmAlQuraCalendar فجربت طلع باقي 90 يوم والمفترض باقي 92
شكراً لك
RE: اضافه للمشروع التاريخ الميلادي والهجري - مساعدة - 26-02-17
أنا قمت بالحساب للأيام المتبقية إلى دخول شهر رمضان فكانت النتيجة 90 يوماً.
حسب تقويم أم القرى:
اليوم السبت هو 28 من شهر جمادى الأولى 30 يوماً، فيبقي يومان.
شهر جمادى الثانية 29 يوماً.
شهر رجب 29 يوماً.
شهر شعبان 30 يوماً.
وبالجمع: 2 + 29 + 29 + 30 = 90 يوماً
[attachment=13320]
وهنا عند اختلاف اليوم الى الأحد 29 حمادى الأولى
[attachment=13321]
عموماً مسألة المتبقي إلى رمضان لن يكون دقيقاً 100% لأن دخول شهر رمضان يعتمد على الرؤية للهلال.
ضع مشروعك ليتم معرفة طريقة عمله وتصحيح ما يلزم.
RE: اضافه للمشروع التاريخ الميلادي والهجري - محمد مسافر - 03-03-17
أنا قمت بالحساب للأيام المتبقية إلى دخول شهر رمضان فكانت النتيجة 85 يوماً من يوماً هذا الجمعه 3/3/2017 .
حسب تقويم أم القرى:
اليوم الجمعه هو 4 من شهر جمادى الثانية ، فيبقي 26 يومأً على اساس يوم 4 الجمعه داخل في الحسبه .
شهر رجب 29 يوماً.
شهر شعبان 30 يوماً.
وبالجمع : 26 + 29 + 30 = 85 يوماً
وزي ماتفضلت حضرتك مسألة المتبقي إلى رمضان لن يكون دقيقاً 100% لأن دخول شهر رمضان يعتمد على الرؤية للهلال ولكن بشكل تقريبي ممكن يزيد يوم او ينقص يوم .