+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التاريخ ميلادي و التاريخ هجري (/showthread.php?tid=22346)
التاريخ ميلادي و التاريخ هجري - العيدروس - 31-10-17
السلام عليكم .اخواني بارك الله فيكم سلفا كيف أضبط التاريخ الميلادي ليظهر بالتاكستبوكس 2 بهذا الشكل من يمين الى يسار
2017-10-31
و التاريخ الهجري يظهر بااكستبوكس 1 بهذا الشكل
الثلاثاء : 11 صفر 1439
شكرا جزيلا
كود :
Public Class Form1
Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))
End Function
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TextBox1.Text = ToHijra(Now, "d dddd, MMMM yyyy")
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
TextBox2.Text = = Format(Date, "yyyy - mm - dd ")
End Sub
End ClassRE: التاريخ ميلادي و التاريخ هجري - Rabeea Qbaha - 31-10-17
كل ما عليك هو تغير الفورمات
كود :
TextBox2.Text = Format(Date, "yyyy- MM - dd")RE: التاريخ ميلادي و التاريخ هجري - العيدروس - 31-10-17
تسلم أخي ربيع الله يجازيك كل خير
لك ما ضبطت معي و الله رغم كتبتي مثل ما ذكرته .. هو اكيد الخطأ من عندي ما قدرت أشغل الملف
أخي ربيع كيف احل مشكلة
visual studio cannot start debugging ..
شوف هالملف لو سمحت اخي ربيع
تشكراتي
RE: التاريخ ميلادي و التاريخ هجري - Rabeea Qbaha - 31-10-17
كود :
textbox1.Text = ToHijra(Now, "dddd :d, MMMM yyyy")RE: التاريخ ميلادي و التاريخ هجري - Rabeea Qbaha - 31-10-17
تفضل اخي
هاي شو بدك
RE: التاريخ ميلادي و التاريخ هجري - العيدروس - 31-10-17
بارك الله فيكم اخواني الكرام
اخ ربيع ارجوك لو سمحت و الله ماقدرت حتى اشوف الملف
افتح ملف جديد ليس به ربع كود
اضع عليه 2 تكست بوكس
اكتب فيه الكود يلي حضرتك كتبته او كتبه الاخ احمد جزاه الله خيرا .. فقط هكذا .. هذا كل ما في الملف .
كود :
Public Class Form1
TextBox1.Text = Today.ToString("d dddd, MMMM yyyy", New Globalization.CultureInfo("ar-SA"))
TextBox2.Text = Today.ToString("yyyy - MM - dd", New Globalization.CultureInfo("ar-EG"))
End Classكيف اتخلص منها الله يخليكم
visual studio cannot start debugging because the debug target....
RE: التاريخ ميلادي و التاريخ هجري - a.ahmed - 31-10-17
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
TextBox1.Text = Today.ToString("dddd, dd MMMM yyyy", New Globalization.CultureInfo("ar-SA"))
TextBox2.Text = Today.ToString("yyyy - MMMM - dd", New Globalization.CultureInfo("ar-EG"))
End Sub
End Class
RE: التاريخ ميلادي و التاريخ هجري - Rabeea Qbaha - 31-10-17
تفضل اخي
تحتاج
textbox1
textbox2
buttom
كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = ToHijra(Now, "dddd :d, MMMM yyyy")
TextBox2.Text = Date.Now.ToString("yyyy-MM-dd")
End Sub
End ClassRE: التاريخ ميلادي و التاريخ هجري - العيدروس - 31-10-17
(31-10-17, 09:06 PM)a.ahmed كتب :والله اشكرك جزيل الشكري اخ أحمد.بارك الله فيك و رحم والديك و اطال باعمارهم وبعمركPHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
TextBox1.Text = Today.ToString("dddd, dd MMMM yyyy", New Globalization.CultureInfo("ar-SA"))
TextBox2.Text = Today.ToString("yyyy - MMMM - dd", New Globalization.CultureInfo("ar-EG"))
End Sub
End Class
اشتغل الملف زي الفل .الله يرضى عليك اخي الكريم
تشكراتي
اشكرك جزيل الشكر اخي ربيع الله يرضى عليك و يمتعك بكل ما تشتهيه من ارزاق الدنيا والاخرة
اشتغل الكود بطريقة صحيحة فقط كنت اريده يطلع التاريخ تلقائي بدون ازرار زي ما تكرم به اخ احمد
تشكراتي