تحويل التاريخ الى هجري عن طريق الاداة ArabicDate

Imports System.Globalization

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim currentDate As Date = New HijriCalendar().ToDateTime(ArabicDate2.MyYear, ArabicDate2.MyMonth, ArabicDate2.MyDay, 0, 0, 0, 0)

ArabicDate1.MyDay = currentDate.Day

ArabicDate1.MyMonth = currentDate.Month

ArabicDate1.MyYear = currentDate.Year

End Sub