نمایش تاریخ شمسی در LABELها

[mosavi_M_K]

سلامی گرم به همه دوستان
در کد زیر هنگام لود برنامه تاریخ شمسی در برچسبها بصورت 111نشان داده میشود لطفا راهنمایی کنید.

Private

Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim R AsDate

(MiladiToShamsi(R
Label1.Text = R.Year
Label2.Text = R.Month
Label3.Text = R.Day

EndSub

Function MiladiToShamsi(ByVal A AsDate) AsString

Dim C AsDate = A.Year & "/" & A.Month & "/" & A.Day
Dim B AsNew System.Globalization.PersianCalendar
(Return B.GetYear(C) & "/" & B.GetMonth(C) & "/" & B.GetDayOfMonth(C
EndFunction

[amirsajjadi]

سلام
1)شما به متغیری که از نوع تاریخ تعریف کردی مقداری ندادی
2)شما باید با تابع DataSerial مقادیر (روز - ماه - سال) رو به تاریخ تبدیل کنید

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Dim R As Date = Now

R = MiladiToShamsi(R)

Label1.Text = R.Year

Label2.Text = R.Month

Label3.Text = R.Day

End Sub

 

Function MiladiToShamsi(ByVal A As Date) As Date

Dim C As Date = DateSerial(A.Year, A.Month, A.Day)

Dim B As New System.Globalization.PersianCalendar

Return DateSerial(B.GetYear(C), B.GetMonth(C), B.GetDayOfMonth(C))

End Function