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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] تحويل الهجري الى ميلادي والميلادي الى هجري بشرط (/showthread.php?tid=21393)

تحويل الهجري الى ميلادي والميلادي الى هجري بشرط - سعود - 15-08-17

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

[صورة مرفقة: image.jpg]
الزر الاول يحول محتوى النص الى الى ميلادي بالاداة الخاصة بالتاريخ
والزر الاخر يحول التاريخ المنتقى من اداة التاريخ الى هجري ويضعه بالنص الاخر

كود :
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


RE: تحويل الهجري الى ميلادي والميلادي الى هجري بشرط - سعود - 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 Sub


RE: تحويل الهجري الى ميلادي والميلادي الى هجري بشرط - سعود - 10-04-24

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