[asemshahen5]

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

[ابراهيم ايبو]

اخي المتألق .... ملف الاخ [b]asemshahen5 [/b]

شغال 100% وجربته للتأكد قم بتحميله.. وكذلك بقية الأكواد المشاركة كلنا نشارك في هذا المنتدى ابتغاء رضى الله علينا

اشكر  الله ثم اشكر من قام بتقديم العون والمساعدة

[elgokr]

للاسف لم ينجح الكود معي

لم ينجح معك

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

اتمنى ارفاق سورس

حتى يتم وضع الكوده

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

تحياتى لك

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

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

[المتألق9]

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