Smart Date From Text Date Field

Category:

C#, VB.NET, ASP.NET

Type:

Snippets

Difficulty:

Beginning

Author: Anonymous

Version Compatibility: Visual Basic 6, Visual Basic.NET

More information:

This is a smart date converter. Enter the TEXT Field with any number of ways of entering dates and it will convert it to a proper date. Example: 0604 Will convert to 06/04/2004 (or current year). 1212 will convert to 12/12/2004

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Function DateConverterPost(ByVal e_date As String) As String
        Dim l_len As Int16
        Dim index As Int16
        Dim l_date As String
        Dim l_char As String
        Dim l_value As Int16
        Dim l_month As Int16
        Dim l_day As Int16
        Dim l_year As Int16
        Dim l_slash As Int16
        l_month = Now.Month
        l_day = Now.Day
        l_year = Now.Year
        l_date = e_date
        l_len = Len(e_date)
        Select Case l_len
            Case 1
                l_char = e_date
                If IsInteger(l_char) Then
                    l_value = Val(l_char)
                    Select Case l_value
                        Case 0
                            l_date = "0"
                        Case Else
                            l_date = l_char & "/" & CStr(l_day) & "/" & CStr(l_year)
                    End Select
                Else
                    l_date = "0"
                End If
            Case 2
                If IsInteger(l_date) Then
                    If Val(l_date) > 0 And Val(l_date) < 13 Then
                        l_date = l_date & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Else
                        l_value = Val(Mid(l_date, 1, 1))
                        If l_value > 1 And l_value < 10 Then
                            l_month = l_value
                            l_day = Mid(l_date, 2, 1)
                            l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                        Else
                            l_date = "0"
                        End If
                    End If
                Else
                    If Mid(l_date, 1, 2) = "/" And IsInteger(Mid(l_date, 1, 1)) Then
                        l_date = l_date & CStr(l_day) & "/" & CStr(l_year)
                    Else
                        l_date = "0"
                    End If
                End If
            Case 3
                l_value = Val(Mid(l_date, 1, 1))
                If l_value > 1 And l_value < 13 Then
                    l_month = l_value
                    l_date = Mid(l_date, 2, 2)
                Else
                    l_month = Val(Mid(l_date, 1, 2))
                    l_date = Mid(l_date, 3, 1)
                End If
                If IsInteger(l_date) Then
                    l_day = Val(l_date)
                End If
                l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
            Case 4
                l_slash = InStr(l_date, "/", CompareMethod.Binary)
                If l_slash = 0 Then
                    l_slash = InStr(l_date, ".", CompareMethod.Binary)
                End If
                Select Case l_slash
                    Case 0
                        l_value = Val(Mid(l_date, 1, 1))
                        If l_value > 1 And l_value < 10 Then
                            l_month = l_value
                            l_value = Val(Mid(l_date, 2, 1))
                            If l_value > 3 Then
                                l_day = Val(Mid(l_date, 2, 1))
                            Else
                                l_day = Val(Mid(l_date, 2, 2))
                                l_year = Val(Mid(l_date, 3, 2))
                            End If
                            l_day = Mid(l_date, 2, 1)
                            l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                        Else
                            l_month = Val(Mid(l_date, 1, 2))
                            l_day = Val(Mid(l_date, 3, 2))
                            l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                        End If
                    Case 3
                        l_month = Val(Mid(l_date, 1, 2))
                        l_day = Val(Mid(l_date, 4, 1))
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case Else
                        l_date = "0"
                End Select
                If l_date <> "0" Then
                    l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                End If
            Case 5
                l_slash = InStr(l_date, "/", CompareMethod.Binary)
                If l_slash = 0 Then
                    l_slash = InStr(l_date, ".", CompareMethod.Binary)
                End If
                Select Case l_slash
                    Case 0
                        l_char = Mid(l_date, 1, 1)
                        If Val(l_char) > 1 Then
                            l_month = Val(Mid(l_date, 1, 1))
                            l_day = Val(Mid(l_date, 2, 2))
                            l_year = Val(Mid(l_date, 4, 2))
                            l_year = l_year + 2000
                        Else
                            l_month = Val(Mid(l_date, 1, 2))
                            l_day = Val(Mid(l_date, 3, 2))
                            l_year = Val(Mid(l_date, 5, 1))
                            l_year = l_year + 2000
                        End If
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case 2
                        l_month = Val(Mid(l_date, 1, 1))
                        l_day = Val(Mid(l_date, 3, 2))
                        l_year = Val(Mid(l_date, 5, 1))
                        l_year = l_year + 2000
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case 3
                        l_month = Val(Mid(l_date, 1, 2))
                        l_day = Val(Mid(l_date, 4, 2))
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case Else
                        l_date = "0"
                End Select
                If l_date <> "0" Then
                    l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                End If
            Case 6
                l_slash = InStr(l_date, "/", CompareMethod.Binary)
                If l_slash = 0 Then
                    l_slash = InStr(l_date, ".", CompareMethod.Binary)
                End If
                Select Case l_slash
                    Case 0
                        l_month = Val(Mid(l_date, 1, 2))
                        l_day = Val(Mid(l_date, 3, 2))
                        l_year = Val(Mid(l_date, 5, 2))
                        l_year = l_year + 2000
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case 2
                        l_month = Val(Mid(l_date, 1, 1))
                        l_day = Val(Mid(l_date, 3, 2))
                        l_year = Val(Mid(l_date, 5, 2))
                        l_year = l_year + 2000
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case 3
                        l_month = Val(Mid(l_date, 1, 2))
                        l_day = Val(Mid(l_date, 4, 2))
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case Else
                        l_date = "0"
                End Select
            Case 7
                l_slash = InStr(l_date, "/", CompareMethod.Binary)
                If l_slash = 0 Then
                    l_slash = InStr(l_date, ".", CompareMethod.Binary)
                End If
                Select Case l_slash
                    Case 0
                        If Val(Mid(l_date, 1, 1)) > 1 Then
                            l_month = Val(Mid(l_date, 1, 1))
                            l_day = Val(Mid(l_date, 2, 2))
                            l_year = Val(Mid(l_date, 4, 4))
                            l_year = l_year + 2000
                        Else
                            l_month = Val(Mid(l_date, 1, 2))
                            l_day = Val(Mid(l_date, 3, 2))
                            l_year = Val(Mid(l_date, 5, 3))
                            l_year = l_year + 2000
                        End If
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case 2
                        l_month = Val(Mid(l_date, 1, 1))
                        l_day = Val(Mid(l_date, 3, 2))
                        l_year = Val(Mid(l_date, 6, 2))
                        l_year = l_year + 2000
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case 3
                        l_month = Val(Mid(l_date, 1, 2))
                        l_day = Val(Mid(l_date, 4, 2))
                        l_year = Val(Mid(l_date, 7, 1))
                        l_year = l_year + 2000
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case Else
                        l_date = "0"
                End Select
            Case 8
                l_slash = InStr(l_date, "/", CompareMethod.Binary)
                If l_slash = 0 Then
                    l_slash = InStr(l_date, ".", CompareMethod.Binary)
                End If
                Select Case l_slash
                    Case 0
                        l_month = Val(Mid(l_date, 1, 2))
                        l_day = Val(Mid(l_date, 3, 2))
                        l_year = Val(Mid(l_date, 5, 4))
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case 2
                        l_month = Val(Mid(l_date, 1, 1))
                        l_day = Val(Mid(l_date, 3, 2))
                        l_year = Val(Mid(l_date, 6, 3))
                        l_year = l_year + 2000
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case 3
                        l_month = Val(Mid(l_date, 1, 2))
                        l_day = Val(Mid(l_date, 4, 2))
                        l_year = Val(Mid(l_date, 7, 2))
                        l_year = l_year + 2000
                        l_date = CStr(l_month) & "/" & CStr(l_day) & "/" & CStr(l_year)
                    Case Else
                        l_date = "0"
                End Select
            Case 9, 10
            Case Else
                l_date = "0"
        End Select
        Return l_date
    End Function