التريخ و الزمن

طيب حمليها هنا خلينا نشوفها

للمعلومات فقط لا توجد اداة تعطي التاريخ الهجري الا اذا برمجها احد المرمجين يعني اداة خاصة

انا انصح كالتالي في كتاب الأستاذ تركي العسيري بالفصل السادس بالتحديد يوجد شرح كامل عن التحويل للتاريخ الهجري والتعامل معه

دعم التقويم الهجري:

ان جميع العمليات التي قمنا بها في السطور السابقة (من بداية إسناد القيم للمتغير حتى الاستعلام

عن القيمة التي يحملها)، كانت تعتمد –بشكل افتراضي- على التقويم الميلادي، ولكن ان حاولت

طباعة قيمة المتغير، فان المخرجات ستتأثر بالاعدادات الإقليمية الحالية:

ادخلت القیمة هنا بالتقويم المیلادي '

Dim today As New Date(2002, 9, 26)

ظهرت المخرجات استنادا إلى الاعدادات الاقلیمیة الحالیة '

العربیة (المملكة العربیة السعودیة) '

بالتقويم الهجري '

ArabicConsole.WriteLine(today) ' 1423/7/20

السبب الذي قد يفسر لك عملية التحويل السابقة تقني، حيث ان القيمة التي يتعامل معها المتغير

ToString() السابق تستخدم التقويم الميلادي، ولكن عند الإخراج تم استدعاء الطريقة today

والتي تتأثر بالاعدادات الاقليمية الحالية في النظام.

Calendar يمكنك تحويل المتغير التاريخي إلى متغير يعتمد التقويم الهجري بارسال الكائن

:CultureInfo التابع للفئة

Imports System.Globalization

…

…

Dim KSA As New CultureInfo("ar-SA")

القیم المدخلة هنا تعتمد التقويم الهجري '

Dim today As New Date(1423, 7, 20, KSA.Calendar)

السابق –رغم ان اعدادات العربية (المملكة today لماذا تم اعتماد التقويم الهجري في المتغير

العربية السعودية ) تحتوي على 6 تقاويم؟ والجواب هو لان التقويم الهجري هو التقويم الافتراضي

في اعدادات العربية (المملكة العربية السعودية )، ولو حاولت تطبيق اعدادات العربية (مصر )،

فعليك الحذر كل الحذر حيث ان التقويم الافتراضي لها هو الميلادي وليس الهجري:

Imports System.Globalization

…

…

Dim Egypt As New CultureInfo("ar-EG")

تنبیه: القیم المدخلة هنا تعتمد التقويم المیلادي '

ولیس الهجري '

Dim today As New Date(1423, 7, 20, Egypt.Calendar)

الغرض من التنبيه السابق هو نصيحتك لاعتماد التقويم الهجري –ان كنت ترغب - بدون

الاعتماد على الاعدادات الاقليمية للجهاز كالطريقة السابقة، وانما تعريف متغير لكائن من الفئة

بشكل مباشر: HijriCalendar

Imports System.Globalization

…

…

Dim hijra As New HijriCalendar()

القیم المدخلة هنا تعتمد التقويم الهجري '

Dim today As New Date(1423, 7, 20, hijra)

تمثل التقويم الهجري بكل ما تحمل الكلمة من معنى وهي مشتقة من HijriCalendar الفئة

لذلك فهي تشتق جميع الطرق والخصائص . مع ذلك، توجد مجموعة كبيرة من ،Calendar الفئة

وبعضها تم إعادة تعريفها - HijriCalendar في الفئة Overrides الطرق تم إعادة قيادتها

،GetDayOfMonth() ،AddYears() ،AddMonths() أيضا- ك Overloads

لمزيد من التفاصيل .NET Documentation الخ (راجع مستندات ... GetDayOfWeek()

حول التعديلات التي طرأت عليها).

عدد الايام في الشهر الحالي يختلف من سنة إلى سنة ومن شهر إل ى شهر، لذلك عليك

لمعرفة عدد الايام في الشهر الحالي: GetDaysInMonth() استدعاء الطريقة

Dim hijra As New HijriCalendar()

ArabicConsole.WriteLine(hijra.GetDaysInMonth(1423, 7)) ' 30

ArabicConsole.WriteLine(hijra.GetDaysInMonth(1423, 8)) ' 29

.NET وعند الحديث عن شهر رمضان المبارك، فبكل تأكيد لن تعتمد على إطار عمل

في تحديد عدد ايام الشهر الحالي، حيث ان رسول الله صلى الله عليه وسلم امرنا Framework

في حديثه الشريف بالاعتماد على رؤية الهلال وليس على الحساب الفلكي الذي تعتمده أجهزة

الحاسب (فقد يكون الشهر 29 او 30 يوماً). لذلك، عليك إعلام المستخدم بانه يتوجب عليه إجراء

2 بالصفحة المقابلة)، او أن تحصر - التعديلات اللازمة للتقويم الهجري من لوحة التحكم (شكل 6

المسؤولية عليك –كمبرمج عربي- في إجراء التعديلات اللازمة بالتوغل داخل مسجل النظام

وتعديل قيمة المفتاح: Windows Registry

HKEY_CURRENT_USER\Control Panel\International\AddHijriDate

مشكورين وماقصرتوا

جزاكم الله كل خير