Dim f As Boolean
Dim d, t As Long
DateTime.DateFormat = "dd/MM/yyyy"
d = DateTime.DateParse( "07/06/2015")
t = DateTime.Add(DateTime.Now, 0, 0, 1) 'this returns F=true because today is 5th
' t = DateTime.Add(DateTime.Now, 0, 0, 2) 'this returns F=false because today is 5th + 2 = 7th
Log(DateTime.Date(d) & " " & DateTime.Date(t))
If DateTime.Date(d) = DateTime.Date(t) Then
f = False
Else
f = True
End If
Log(f)