تابعی در VB.Net برای تبدیل تاریخ شمسی به میلادی

با سلام
من نیاز فوری به تابعی در vb.net دارم که تاریخ شمسی را به میلادی تبدیل کند
در اینترنت زیاد جستجو کردم اما مورد مناسبی پیدا نکردم
لطفا کمکم کنید ...

:چشمک:

این تابع تبدیل میلادی به شمسی هست همین رو بر عکس کن درست می شه

    Dim x As New System.Globalization.PersianCalendar



    Private Function GetNemeWeek(ByVal Emrooz As Integer) As String

        'Return "شنبه"

        Select Case Emrooz

            Case DayOfWeek.Friday

                Return "جمعه"

            Case DayOfWeek.Monday

                Return "دوشنبه"

            Case DayOfWeek.Saturday

                Return "شنبه"

            Case DayOfWeek.Sunday

                Return "يکشنبه"

            Case DayOfWeek.Thursday

                Return "سه شنبه"

            Case DayOfWeek.Wednesday

                Return "چهارشنبه"

            Case DayOfWeek.Thursday

                Return "پنجشنبه"

        End Select

    End Function



    Private Function GetNemeMonth(ByVal Emrooz As Integer) As String

        Select Case Emrooz

            Case 1 : Return "فروردين"

            Case 2 : Return "ارديبهشت"

            Case 3 : Return "خرداد"

            Case 4 : Return "تير"

            Case 5 : Return "مرداد"

            Case 6 : Return "شهريور"

            Case 7 : Return "مهر"

            Case 8 : Return "آبان"

            Case 9 : Return "آذر"

            Case 10 : Return "دي"

            Case 11 : Return "بهمن"

            Case 12 : Return "اسفند"

        End Select



    End Function

    Public Function Shamsi() As String

        Return GetNemeWeek(x.GetDayOfWeek(Now)) & " " & x.GetDayOfMonth(Now) & " " & GetNemeMonth(x.GetMonth(Now)) & " " & x.GetYear(Now)



    End Function

این آدرس رو ببین
www.persianforum.net/s2m.asp

همین طور این عبارت را جستجو کن در گوگل
shamsi2miladi +vb.net
shamsi to miladi

دوست عزیز تو همین سایت کمی جستجو کن کلی پیدا می کنی

از همین سایت گرفتم