+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] تحويل الهجري الى ميلادي والميلادي الى هجري بشرط (/showthread.php?tid=21393)
تحويل الهجري الى ميلادي والميلادي الى هجري بشرط - سعود - 15-08-17
السلام عليكم ورحمة الله وبركاته
التي كانت عقدة لدي من التعامل بالتاريخ اصبحت الان ميزة
لكن لابد من ان يكون النظام على التقويم الهجري لتنجح هذه الفكرة
الزر الاول يحول محتوى النص الى الى ميلادي بالاداة الخاصة بالتاريخ
والزر الاخر يحول التاريخ المنتقى من اداة التاريخ الى هجري ويضعه بالنص الاخر
كود :
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 ClassRE: تحويل الهجري الى ميلادي والميلادي الى هجري بشرط - سعود - 26-06-19
هل احد يحتاج للفكرة البسيطة؟!
للتذكير
RE: تحويل الهجري الى ميلادي والميلادي الى هجري بشرط - أبووسم - 12-07-23
جربت المشروع لم ينجح في تحويل التاريخ من هجري إلى ميلادي للأسف
RE: تحويل الهجري الى ميلادي والميلادي الى هجري بشرط - glal - 13-07-23
أبووسم هذا تعديل على الكود يتم فيه تحويل التاريخ باستخدام التيكست بوكس 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 SubRE: تحويل الهجري الى ميلادي والميلادي الى هجري بشرط - سعود - 10-04-24
كل عام و انتم بخير بمناسبة عيد الفطر المبارك لعام 1445 هـ
تاريخ 30 رمضان 1445 هـ الساعة:
11:43 ليلا