منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

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

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

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

(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