Extract Dates from String

**djblois1** · 07-15-2011, 02:09 PM

Here is what I have so far:

Sub snb()

Dim j As Integer
Dim sq As Variant
Dim stra As Variant

    sq = Filter(Split("From JAN-01-2011 To JAN-15-2011"), "-")
 
    If Len(stra(i)) > 16 Then
        For j = 0 To UBound(sq)
            x1 = CDate(sq(j))
        Next
    Else
    
    End If
    
End Sub

I need to do 3 things with this code now:

1) They need to be saved in two separate variables
2) They need to be in date format
3) It also needs to work if the sting only has one date in it (like the example I gave)

**davegugg** · 07-15-2011, 02:12 PM

The code I posted was already set up to do those three things:

Sub extract()

    Dim stra(2) As String
    Dim dte1 As Date
    Dim dte2 As Date
    
    stra(0) = "FROM JAN-01-2011 To JAN-15-2011"
    stra(1) = "FROM JAN-01-2010"
    
    For i = 0 To 1
        If Len(stra(i)) > 16 Then
            dte1 = CDate(Right(stra(i), 11))
            dte2 = CDate(Right(Left(stra(0), 16), 11))
        Else
            dte1 = CDate(Right(stra(i), 11))
        End If
    Next i

End Sub

Extract Dates from String

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Re: Extract Dates from String

Re: Extract Dates from String

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions