هجري calender

بسم الله الرحمن الرحيم

اخى العزيز

الكود ده بيغير ال calender الى هجرى فى الصفحة اللى هتضعه في

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Dim dft As CultureInfo
            Dim arJO As New CultureInfo("ar-SA")
            arJO.DateTimeFormat.Calendar = New HijriCalendar()

            ' Change current culture to arSY.
            dft = Thread.CurrentThread.CurrentCulture
            Thread.CurrentThread.CurrentCulture = arJO
            ' Free Resources : 
            dft = Nothing
            arJO = Nothing
        Catch ex As Exception
            Response.Write(ex.Message.ToString())
        End Try
    End Sub

اتمنى اكون افدتك