[سعود]

السلام عليكم ورحمة الله وبركاته

التي كانت عقدة لدي من التعامل بالتاريخ اصبحت الان ميزة

لكن لابد من ان يكون النظام على التقويم الهجري لتنجح هذه الفكرة

الزر الاول يحول محتوى النص الى الى ميلادي بالاداة الخاصة بالتاريخ

والزر الاخر يحول التاريخ المنتقى من اداة التاريخ الى هجري ويضعه بالنص الاخر

كود :

Public Class Form1
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       d1.Value = CDate(TextBox1.Text)
   End Sub
   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       TextBox2.Text = d1.Value.ToShortDateString
   End Sub
End Class

[سعود]

هل احد يحتاج للفكرة البسيطة؟!
للتذكير

[أبووسم]

جربت المشروع لم ينجح في تحويل التاريخ من هجري إلى ميلادي للأسف

[glal]

أبووسم هذا تعديل على الكود يتم فيه تحويل التاريخ باستخدام التيكست بوكس 1 فقط (في الحقيقه الكود منقول)

كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       'd1.Value = CDate(TextBox1.Text)
       Threading.Thread.CurrentThread.CurrentCulture = Globalization.CultureInfo.CreateSpecificCulture("ar-sa")
       Dim d = CDate(TextBox1.Text)
       Threading.Thread.CurrentThread.CurrentCulture = Globalization.CultureInfo.CreateSpecificCulture("ar-eg")
       TextBox1.Text = d.ToString("dd/MM/yyyy")
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       'TextBox2.Text = d1.Value.ToShortDateString
       Threading.Thread.CurrentThread.CurrentCulture = Globalization.CultureInfo.CreateSpecificCulture("ar-eg")
       Dim d = CDate(TextBox1.Text)
       Threading.Thread.CurrentThread.CurrentCulture = Globalization.CultureInfo.CreateSpecificCulture("ar-sa")
       TextBox1.Text = d.ToString("dd/MM/yyyy")
   End Sub

[سعود]

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

تاريخ 30 رمضان 1445 هـ الساعة:

11:43 ليلا