Macro to compare date in cell to current date.

[javeed]

Hi,
In cell (A1) "Report Date:18-10-2015" Category General as data is from text file.
Macro to check this date with system date if wrong then alert message of wrong date.
Any help would be greatly appreciated!

[p45cal]

Sub blah()
y = Split(Split(Range("A1").Value, ":")(1), "-")
If DateValue(Join(Array(y(2), y(1), y(0)), "-")) = Date Then
  MsgBox "It IS today"
Else
  MsgBox "It's not today!"
End If
End Sub

[SamT]

Why the double Split?

Wouldn't this work?

Sub blue() 
    y = Split(Range("A1").Value, ":")
    If DateValue(y(1)) = Date Then 
        MsgBox "It IS today" 
    Else 
        MsgBox "It's not today!" 
    End If 
End Sub

[javeed]

Hi,

Thank you P45cal and SamT.

[p45cal]

Why the double Split?

Because of a recent conversation (with you!) at http://www.vbaexpress.com/forum/show...l=1#post332203

[SamT]

DOH! How soon we (I) forget. Nice "universal" solution.