[مثال] طريقة تحويل تاريخ مدخل يدوياً كنص الى متغير من نوع تاريخ

PHP كود :
    ''' <summary>
    ''' تحويل التاريخ من قيمة نصيه الى قيمة تاريخ
    ''' </summary>
    ''' <example>This is a code example:
    '''   <code>
    '''       Dim myDate As DateTime = ConvertFromStringToDate("1416/12/1")
    '''   </code>
    ''' </example>
    ''' <param name="DateAsString">التاريخ المدخل كنص</param>
    ''' <param name="DateFormat">هيئة التاريخ</param>
    ''' <param name="SpiltChar">الفاصله التي تفصل ارقام التواريخ</param>
    ''' <returns>DateTime</returns>
    ''' <remarks></remarks>
    Public Shared Function ConvertFromStringToDate(ByVal DateAsString As String, Optional ByVal DateFormat As String = "yyyy/MM/dd", Optional ByVal SpiltChar As Char = "/") As DateTime
        If DateAsString.Trim <> Nothing Then
            Dim theSpiltDate As String() = Split(DateAsString, SpiltChar)
            Dim culture As IFormatProvider
            Dim yearNo As String = ""
            For Each Number As String In theSpiltDate
                If Number.Length = 4 And Information.IsNumeric(Number) = True AndAlso (Val(Number) > 1300 Or Val(Number) < 2100) Then yearNo = Number
            Next
            If yearNo.Trim = Nothing Then Return Now
            If Val(yearNo) < 1450 Then
                culture = New System.Globalization.CultureInfo("ar-SA", True)
            Else
                culture = New System.Globalization.CultureInfo("en-US", True)
            End If

            Dim myDate As DateTime = DateTime.ParseExact(DateAsString.Trim, DateFormat.Trim, culture)
            Return myDate
        Else
            Return Now
        End If
    End Function