+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم (/showthread.php?tid=47716)
تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم - محمد العموري - 29-12-23
السلام عليكم كيف حالكم إخواني الكرام أريد المساعدة منكم
أريد إضافة أداتي ديت تايم بيكر أحدهما هجرية والثانية ميلادية
إذا حددت التاريخ الهجري في الأولى تتحول الثانية إلى ما يوافقه ميلادي
وإذا حددت الميلادي في الثانية يتحول الهجري في الأولى بما يوافقه
فكيف السبيل أسأل الله أن يجزيكم خير الجزاء، وأن يفتح عليكم من خزائن المعارف.
RE: تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم - Kamil - 29-12-23
(29-12-23, 07:21 PM)محمد العموري كتب : السلام عليكم كيف حالكم إخواني الكرام أريد المساعدة منكم
أريد إضافة أداتي ديت تايم بيكر أحدهما هجرية والثانية ميلادية
إذا حددت التاريخ الهجري في الأولى تتحول الثانية إلى ما يوافقه ميلادي
وإذا حددت الميلادي في الثانية يتحول الهجري في الأولى بما يوافقه
فكيف السبيل أسأل الله أن يجزيكم خير الجزاء، وأن يفتح عليكم من خزائن المعارف.
جرب ه>ا الكود
PHP كود :
Imports System.Globalization
' تحويل التاريخ الهجري إلى ميلادي
Private Function HijriToGregorian(hijriDate As Date) As Date
Dim hijriCalendar As New HijriCalendar()
Dim gregorianDate As Date = hijriCalendar.ToDateTime(hijriDate.Year, hijriDate.Month, hijriDate.Day, 0, 0, 0, 0)
Return gregorianDate
End Function
' تحويل التاريخ الميلادي إلى هجري
Private Function GregorianToHijri(gregorianDate As Date) As Date
Dim hijriCalendar As New HijriCalendar()
Dim hijriDate As Date = hijriCalendar.ToDateTime(gregorianDate.Year, gregorianDate.Month, gregorianDate.Day, 0, 0, 0, 0)
Return hijriDate
End Function
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
' تحويل التاريخ الهجري من DateTimePicker1 إلى تاريخ ميلادي وتحديث DateTimePicker2
Dim hijriDate As Date = DateTimePicker1.Value
Dim gregorianDate As Date = HijriToGregorian(hijriDate)
DateTimePicker2.Value = gregorianDate
End Sub
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
' تحويل التاريخ الميلادي من DateTimePicker2 إلى تاريخ هجري وتحديث DateTimePicker1
Dim gregorianDate As Date = DateTimePicker2.Value
Dim hijriDate As Date = GregorianToHijri(gregorianDate)
DateTimePicker1.Value = hijriDate
End Sub