[911]

(10-09-18, 02:23 AM)911 كتب : عرض التاريخ الهجري

كود :

Dim culture As New Globalization.CultureInfo("ar-SA")
TextBox1.Text = Today.ToString("dd/MM/yyyy", culture)

اضافة ايام للتاريخ الهجري

كود :

Dim culture As New Globalization.CultureInfo("ar-SA")
Dim calendar As New Globalization.UmAlQuraCalendar
TextBox1.Text = calendar.AddDays(Now, 5).ToString("dd/MM/yyyy", culture)

انقاصها ايام للتاريخ الهجري

كود :

Dim culture As New Globalization.CultureInfo("ar-SA")
Dim calendar As New Globalization.UmAlQuraCalendar
TextBox1.Text = calendar.AddDays(Now, -5).ToString("dd/MM/yyyy", culture)

نفس مشاركتي السابق ولكن نسيت تعطيل الخاصية UseUserOverride لل Culuture وذلك بجعلها false
عرض التاريخ الهجري

كود :

Dim culture As New Globalization.CultureInfo("ar-SA",false)
TextBox1.Text = Today.ToString("dd/MM/yyyy", culture)

اضافة ايام للتاريخ الهجري

كود :

Dim culture As New Globalization.CultureInfo("ar-SA",false)
Dim calendar As New Globalization.UmAlQuraCalendar
TextBox1.Text = calendar.AddDays(Now, 5).ToString("dd/MM/yyyy", culture)

انقاصها ايام للتاريخ الهجري

كود :

Dim culture As New Globalization.CultureInfo("ar-SA",false)
Dim calendar As New Globalization.UmAlQuraCalendar
TextBox1.Text = calendar.AddDays(Now, -5).ToString("dd/MM/yyyy", culture)