[عبدالله الدوسري]

(06-06-18, 03:41 AM)hichem1 كتب :

(06-06-18, 03:27 AM)عبدالله الدوسري كتب : أهلاً بالسندبااد 

الله أعلم ، ممكن من جهاز لآخر يختلف في الإعدادات .
هكذا يظهر لدي ,

عفوا لكن أنا أيضا يظهر "السنبلة"

ممكن إختلاف إعدادات الأجهزة هي السبب والله أعلم.

[hichem1]

(06-06-18, 05:00 AM)عبدالله الدوسري كتب :

(06-06-18, 03:41 AM)hichem1 كتب :

(06-06-18, 03:27 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

[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

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