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

Public Function ShamsiToMiladi(ByVal SDate As String) As String

        Dim pc As New Globalization.PersianCalendar
        ShamsiToMiladi = ""
        If SDate.Length = 10 Then

            Dim Tarikh
            Tarikh = Split(SDate, "/")

            ShamsiToMiladi = (pc.ToDateTime(Tarikh(0), Tarikh(1), Tarikh(2), 0, 0, 0, 0))

        End If

        Return ShamsiToMiladi

End Function 

طریقه استفاده 

Msgbox(ShamsiToMiladi ("1367/02/11"))

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

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

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()))