[hichem1]

(06-06-18, 10:43 AM)السندبااد كتب :

قمت بعمل تعديل بسيط حتى نتفادى مشكلة الأجهزة، وهذا هو التعديل:

       

كود :

Dim gregorianDate As Date = Now
        Dim solarCalendar = New PersianCalendar()
        Dim solarDay = solarCalendar.GetDayOfMonth(gregorianDate)
        Dim solarMonth = solarCalendar.GetMonth(gregorianDate)
        Dim solarYear = solarCalendar.GetYear(gregorianDate)

        Dim shh As Date
        shh = solarYear & "/" & solarMonth & "/" & solarDay

        Me.Label_PersianCalendar.Text = shh.To_Persian_Date

شكرا و الله إنكم رائعون