السلام عليكم ورحمة الله وبركاته
التي كانت عقدة لدي من التعامل بالتاريخ اصبحت الان ميزة
لكن لابد من ان يكون النظام على التقويم الهجري لتنجح هذه الفكرة
الزر الاول يحول محتوى النص الى الى ميلادي بالاداة الخاصة بالتاريخ
والزر الاخر يحول التاريخ المنتقى من اداة التاريخ الى هجري ويضعه بالنص الاخر
كود :
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
هل احد يحتاج للفكرة البسيطة؟!
للتذكير
جربت المشروع لم ينجح في تحويل التاريخ من هجري إلى ميلادي للأسف
أبووسم هذا تعديل على الكود يتم فيه تحويل التاريخ باستخدام التيكست بوكس 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 ليلا
