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

[mosavi_M_K]

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


PrivateSub 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