داله تحويل التاريخ من ميلادي الى هجري

ضع هذا الكود في Timer واجعل Interval=1000

		Dim HCal As New System.Globalization.HijriCalendar
		Dim dt As DateTime = DateTime.Now
		Dim ci As New System.Globalization.CultureInfo("ar-SA")
		Me.TextBox.Text = dt.ToString("dd--MMMMM--yyyy", ci)

طيب يا أخي الكريم أنا عندي حل أسرع استخدمه دائماً وهو التالي :

datetxt.text = Now.UtcNow.Date

احسنت يا أخي ابراهيم ..

وفي 2005 اليك الكود التالي ..

Label2.Text = Date.UtcNow.Date.ToString("dd / MM / yyyy هـ")

إذا كنت تستخدم فيبي 2005 و تريد استخدام تقويم أم القرى هناك الكلاس الجديد

System.Globalization.UmAlQuraCalendar

Dim umq As New System.Globalization.UmAlQuraCalendar
		Dim gregDate As Date = Date.Now
		Dim hijDay As Integer = umq.GetDayOfMonth(gregDate)
		Dim hijMonth As Integer = umq.GetMonth(gregDate)
		Dim hijYear As Integer = umq.GetYear(gregDate)
		Dim hijFull As String = hijDay.ToString + "/" + hijMonth.ToString + "/" + hijYear.ToString
		Me.Label2.Text = hijFull

رائع يا أخي System Down ..

أظن الآن يا أخي المستريح استرحت اسم ومعنى .

System Down كتب:

إذا كنت تستخدم فيبي 2005 و تريد استخدام تقويم أم القرى هناك الكلاس الجديد

System.Globalization.UmAlQuraCalendar

Dim umq As New System.Globalization.UmAlQuraCalendar
		Dim gregDate As Date = Date.Now
		Dim hijDay As Integer = umq.GetDayOfMonth(gregDate)
		Dim hijMonth As Integer = umq.GetMonth(gregDate)
		Dim hijYear As Integer = umq.GetYear(gregDate)
		Dim hijFull As String = hijDay.ToString + "/" + hijMonth.ToString + "/" + hijYear.ToString
		Me.Label2.Text = hijFull

الاخ الكريم System Down هذه الكلاس مفيد جدا علما انه لا يستخدم التاريخ الهجري للجهاز انما تقويم ام القرى

هل معنى ذلك ان التقويم مطابق لام القرى ام ان هناك زياده او نقص يوم احيانا كما يحدث دائما في تاريخ الجهاز الهجري

ألف شكر لك

ولكن...

المستريح كتب:

هل معنى ذلك ان التقويم مطابق لام القرى ام ان هناك زياده او نقص يوم احيانا كما يحدث دائما في تاريخ الجهاز الهجري

مشكورررررررر

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

شكرا جزيلا

المستريح كتب:

الاخ الكريم System Down هذه الكلاس مفيد جدا علما انه لا يستخدم التاريخ الهجري للجهاز انما تقويم ام القرى

هل معنى ذلك ان التقويم مطابق لام القرى ام ان هناك زياده او نقص يوم احيانا كما يحدث دائما في تاريخ الجهاز الهجري

على حد علمي هو مطابق لتقويم أم القرى و إلا ما كان له كلاس لوحده.

عفوا شباب انا عندي سوال قريب من هدا الموضوع

كيف اجعل التاريخ يكتب باللغه العربية

يعني يكتب بالميلادي بس باللغه العربية طبعا سوالى في اداة التاريخ

إبراهيم بخش كتب:

طيب يا أخي الكريم أنا عندي حل أسرع استخدمه دائماً وهو التالي :

datetxt.text = Now.UtcNow.Date

لكن لا يمكن لهذه الدالة التحويل من ميلادي الى هجري ..

عشان كده B) لازم نستخدم HijriCalendar

صاحبة السمو كتب:

عفوا شباب انا عندي سوال قريب من هدا الموضوع

كيف اجعل التاريخ يكتب باللغه العربية

يعني يكتب بالميلادي بس باللغه العربية طبعا سوالى في اداة التاريخ

هذا راجع لاعدادات الجهاز

vb2005

label.text = Date.UtcNow.Date

يعني يا شباب

انا عندي حوالي 8 تكست بوكس في الفورم الواحد (برنامج شؤون موظفين)

على استخدم هذا الكود

اقتباس

Dim umq As New System.Globalization.UmAlQuraCalendar

Dim gregDate As Date = Date.Now

Dim hijDay As Integer = umq.GetDayOfMonth(gregDate)

Dim hijMonth As Integer = umq.GetMonth(gregDate)

Dim hijYear As Integer = umq.GetYear(gregDate)

Dim hijFull As String = hijDay.ToString + "/" + hijMonth.ToString + "/" + hijYear.ToString

Me.Label2.Text = hijFull

عند كل تكست بوكس ولا ويشلون

ياليت احد يتكرم ونكون ممنوين له ويحط لنا برنامج صغير فيه واحد تكست بوكس

لأنه عندي مشروع متعطل بسبب هاذي المشكلة

الداتا اللي مخزنة عندي كلها بالميلادي

لكن ابغاها تجي للفورم بالهجري

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

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

تقبلوا التحيات