تبدیل تاریخ 1391/04/31 به نوع Date در VB.net

[ms_vb]

با عرض سلام و خسته نباشید خدمت تمامی اساتید فروم، مخصوصا استاد سعید عزیز
چطور میتونم تاریخ امروز (1391/04/31) رو به نوع Date تبدیل کنم؟

 

[the_king]

با عرض سلام و خسته نباشید خدمت تمامی اساتید فروم، مخصوصا استاد سعید عزیز
چطور میتونم تاریخ امروز (1391/04/31) رو به نوع Date تبدیل کنم؟

    Private Function PersianToDate(ByVal text As String) As Date
        Dim persian As New System.Globalization.PersianCalendar
        Dim parameters() As String = text.Split("/")
        Return persian.ToDateTime(Val(parameters(0)), Val(parameters(1)), Val(parameters(2)), 0, 0, 0, 0)
    End Function

مثلا :

        Dim d As Date = PersianToDate("1391/04/31")