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