منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية عرض التاريخ الهجري - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية عرض التاريخ الهجري (/showthread.php?tid=26430)

الصفحات: 1 2

RE: كيفية عرض التاريخ الهجري - asemshahen5 - 17-09-18

حمل المرفق في المشاركة رقم 8 و جربه .

RE: كيفية عرض التاريخ الهجري - ابراهيم ايبو - 17-09-18

اخي المتألق .... ملف الاخ [b]asemshahen5 [/b]
شغال 100% وجربته للتأكد قم بتحميله.. وكذلك بقية الأكواد المشاركة كلنا نشارك في هذا المنتدى ابتغاء رضى الله علينا
اشكر  الله ثم اشكر من قام بتقديم العون والمساعدة


RE: كيفية عرض التاريخ الهجري - elgokr - 17-09-18

(16-09-18, 03:40 PM)المتألق9 كتب : للاسف لم ينجح الكود معي


لم ينجح معك

هنا يكون المشكلة لديك فى طريقة استخدام الكود

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

تحياتى لك
وتمنياتى لك التوفيق


RE: كيفية عرض التاريخ الهجري - 911 - 17-09-18

(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)


RE: كيفية عرض التاريخ الهجري - المتألق9 - 18-09-18

مشكور أخي [b]911[/b]   هكذا الكود شغال تمام التمام
بارك الله فيك