17-09-18, 10:13 AM
(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)