تبديل تاريخ ميلادي به شمسي

[saeednadery]

با سلام
من براي تبديل تاريخ ميلادي به شمسي از كد زير استفاده مي كنم ولي مقاديري كه براي من بر مي گرداند براي هر سه مورد ( روز و ماه و سال ) 1 است مشكل كجاست
Dim PerC As New System.Globalization.PersianCalendar
Dim dat As Date
Dim sal As String = dat.Year.ToString
Dim mah As String = dat.Month.ToString
Dim rooz As Integer = dat.Day.ToString


با تشكر

[کم حوصله]

سلام



Dim PerC As New System.Globalization.PersianCalendar

Dim sal As String = PerC.GetYear(Now).ToString
Dim mah As String = PerC.GetMonth(Now).ToString
Dim rooz As Integer = PerC.GetDayOfMonth(Now).ToString