Help with greater than 30 days and less than 30 days

[JeremySun]

Currently trying to vb a greater than 30 days from today and a less than 30 days from today script so that if the date is greater than 30 days it will count it, and the same for less than.

 

[villy]

Something like this?

sub Diff()
A_Rng=range("A1")
If A_Rng-date>30 then
MsgBox "This is greater than 30"
else
MsgBox "This is less than 30"
endif
end sub