comparing dates

[Dan Nash]

Hi peeps

I have an expiry date stored as a text field in the
following way "2003-08-23" (this gets round the US/UK
date prob)

The problem is I want to be able to show a Renew option
on the page FROM 30 days prior to that date. And then of
course if they don't renew, it unsubscribes them.

Question, how can I compare this date to see if todays
date is 30 days or closer to the expiry date?

Cheers


Dan

 

[dlbjr]

Function CheckDaysToExpire(strDate,intThreshold)

CheckDaysToExpire = False

If Len(strDate) <> 10 Tnen

If Not IsNumeric(intThreshold) Then

intThreshold = 0

End If

dtmDate = DateSerial(Left(strDate,4),Mid(strData,6,2),Right(strData,2)

If DateDiff("d",dtmDate,Date) < CInt(intThreshold) Then

CheckDaysToExpire = True

End If

End If

End Function


-dlbjr

invariable unerring alien