تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] اضافه للمشروع التاريخ الميلادي والهجري
#1
Rainbow 
مشروع التحويل من الميلادي الى الهجري والعكس

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


الرد
تم الشكر بواسطة:
#2
السلام عليكم


تستطيع استغلام معرفة رقم اليوم من السنة لمؤشر لعنصر من مصفوفة فيه مجموعة من الحكم
ولكن يجب أن تكون عدد عناصر المصفوفة أكثر إن لم تساوي عدد أيام السنة
كود :
Dim days As Integer = Today.DayOfYear
MsgBox(Hekmah(days-1)
' على أساس أن أول عنصر من المصفوفة يشار له بالرقم صفر
الرد
تم الشكر بواسطة:
#3
ممكن التوضيح اكثر ان كان هناك امكانيه تطبيق الكود المناسب على البرنامج المرفق

اكون شاكر لك وللجميع اخي الكريم
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد
تم الشكر بواسطة:
#4
جمعتكم مباركه

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

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


الرد
تم الشكر بواسطة:
#5
السلام عليكم

المتبقي لشهر رمضان في هذا الموضوع
[سؤال] البخث فقط عن اليوم و الشهر
الرد
تم الشكر بواسطة: محمد مسافر
#6
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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), 91hijri)
 
   If Now dateRamadan Then dateRamadan = New Date(hijri.GetYear(Now) + 191hijri)
 
   Return DateDiff(DateInterval.DayNowdateRamadan)
End Function 

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

ممكن معالجه الموضوع وشكراً للجميع
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد
تم الشكر بواسطة:
#7
يبدو أنك تقرأ الدالة مرة وحدة،

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

هذا الكود استخدم التقويم الهجري HijriCalendar إذا أردت تغييره إلى تقويم أم القرى UmAlQuraCalendar
الرد
تم الشكر بواسطة:
#8
جربت وضع داله للوقت ومانفع

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

شكراً لك
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


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

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

   

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

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

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

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

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


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


الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فورم تنبيه باقتراب التاريخ khaled Mohammed 1 76 21-09-20, 07:26 PM
آخر رد: Anas Mahmoud
  التاريخ لا يقبل الاضافة او التعديل talatm 2 119 18-09-20, 08:36 PM
آخر رد: talatm
  جلب التاريخ بتنسيق معين mr_hso 4 221 14-09-20, 05:26 PM
آخر رد: mr_hso
  مشكلة في عمل ابديت لجدول بسبب التاريخ ارجو المساعدة stiger 2 208 24-08-20, 04:40 PM
آخر رد: stiger
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 331 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي
  طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود خالد كامل1 9 475 21-08-20, 02:05 AM
آخر رد: خالد كامل1
  [VB.NET] لو سمحت محتاج مساعدة في تنفيذ شريط مهام للمشروع MustafaShaker 2 239 15-08-20, 05:59 AM
آخر رد: MustafaShaker
  [سؤال] عايزه كود عرض التاريخ الهجري في رساله منه 1 276 17-07-20, 06:42 PM
آخر رد: boudyonline
  انشاء TaskBar للمشروع Mustafa Shaker 1 202 15-07-20, 02:18 PM
آخر رد: alsouf
  عرض التاريخ الهجري في الكريستال ريبورت جيولوجي مبتدئ 4 393 10-07-20, 07:27 AM
آخر رد: جيولوجي مبتدئ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم