چگونه تاریخ میلادی را به شمسی تبدیل کنیم ؟

نکته : تاریخ ایران هجری شمسی و تاریخ تازی هجری قمری است .

برای این تبدیل من یک کدی رو پیشنهاد میکنم که از یک تکنیک جهانی سازی مایکروسافت به نام کلاس PersianCalendar موجود در فضای نام System.Globalization مورد استفاده قرار میگیرد و جزئیات زیادی داره برای خواندن جزئییات میتونید به سایت زیر مراجعه کنید که مال خود داش بیلیه (بیل گیتس) : http://msdn.microsoft.com/enus/library/system.globalization.persiancalendar.aspx

ولی من یه تغییراتی توش دادم که با فرمت درست نشون بده٬ چون فرمتش مثل تاریخ خودشونه (کد به زبان ویژوال بیسیک است ) :

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim jc As New PersianCalendar

Dim thisdate As Date = Date.Now

Response.Write(vbCrLf + "toay " + vbCrLf)

Response.Write(vbCrLf + Date.Now + vbCrLf)

Label1.Text = jc.GetDayOfWeek(thisdate).ToString() & " " & jc.GetYear(thisdate) & " / " & jc.GetMonth(thisdate) & " / " & jc.GetDayOfMonth(thisdate) & " " & jc.GetHour(thisdate) & " : " & jc.GetMinute(thisdate) & " : " & jc.GetSecond(thisdate)

End Sub

راستی نکته آخر : از اونجا که ویژوال بیسیک زبان ابلهیه خط بعدی رو تشخیص نمیده پس دستورات لیبل را در یک خط بنویسید (واسه تشخیص خط بعدی از آندر لاین استفاده کنید).