question about dates

[phunugus]

Im writing this daily/weekly/monthy reminder program, but im stuck on how to implement monthly reminders. I store the first day that the reminder will run. So how would i do this? my only idea has been:

if today's date is a multiple of 30, but this is flawed for many reasons...

im not that good at math, so any suggestions? (besides a math course)

thanx for any replies

 

[Custom24]

I've not tested this, and there may be a more elegant way of doing it, but

Public Function blnRemind(ByRef datOriginal As Date) As Boolean
'if the day of the month now is the same as it was then, then return true
If datOriginal.Day = Now.Day Then Return True
'otherwise, we still have to return true if there are less days in the month now than then, and today is the last day of the month
If Date.DaysInMonth(Now.Year, Now.Month) < Date.DaysInMonth(datOriginal.Year, datOriginal.Month) AndAlso _
Now.Day = Date.DaysInMonth(Now.Year, Now.Month) Then Return True
End Function Mark