مشکل با کلاس Globalization.PersianCalendar

[imanx7]

سلام ! هر کاری میکنم نمیتونم با این کلاس تاریخ شمسی رو برگردونم !! لطفا راهنمایی کنید !

Dim Shamsi As Globalization.PersianCalendar
Me.Text1.text = Shamsi.GetYear(now)

[hosseinbarnamenevis]

من خئدم یه بار این رو نوشتم از همینم استفاده میکنم امیدوارم بدرد بخوره :D


Dim perdate As New System.Globalization.PersianCalendar
Dim year As String
Dim mount As String
Dim day As String
Dim datenow As String
year = perdate.GetYear(Date.Now)


If perdate.GetMonth(Date.Now) < 10 Then
mount = "0" + perdate.GetMonth(Date.Now).ToString()
Else
mount = perdate.GetMonth(Date.Now)
End If


If perdate.GetDayOfMonth(Date.Now) < 10 Then
day = "0" + perdate.GetDayOfMonth(Date.Now).ToString()
Else
day = perdate.GetDayOfMonth(Date.Now)


End If
datenow = year + "/" + mount + "/" + day