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

کد تبدیل تاریخ میلادی به شمسی 

Public Function MiladiToShamsi(ByVal MDate As Date) As String

MiladiToShamsi = “”

        Dim pc As New Globalization.PersianCalendar

        Dim Sal As Integer = pc.GetYear(MDate)

        Dim Mah As Integer = pc.GetMonth(MDate)

        Dim Roz As Integer = pc.GetDayOfMonth(MDate)

        MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/" & Format(Roz, "00")

        Return MiladiToShamsi

    End Function 

 طریقه استفاده از تابع 

  Msgbox(MiladoToShamsi(Now()))