[محمد العموري]

السلام عليكم كيف حالكم إخواني الكرام أريد المساعدة منكم 
أريد إضافة أداتي ديت تايم بيكر أحدهما هجرية والثانية ميلادية
إذا حددت التاريخ الهجري في الأولى تتحول الثانية إلى ما يوافقه ميلادي
وإذا حددت الميلادي في الثانية يتحول الهجري في الأولى بما يوافقه 
 فكيف السبيل أسأل الله أن يجزيكم خير الجزاء، وأن يفتح عليكم من خزائن المعارف.

[Kamil]

(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