I've recently put this together (borrowing heavily from Nigel Garvey's DateTips in ScriptBuilders.net) to calculate the dates of monthly events that always occur on the same day of the week approximately one month apart. Seems a little coarse to me, though it works. Any suggestions for streamlining it?

Applescript:

set tDates to {}
set Now to (current date) -- or any date given.
set WD to weekday of Now
repeat with k from 1 to 5
   set newDate to addMonths(Now, k)
   set end of tDates to getNearestWkDay(newDate, WD)
end repeat

to addMonths(oldDate, m) -- returns a date
   -- adapted from a script by Nigel Garvey (N.G.)
   copy oldDate to newDate
   -- Convert the month-offset parameter to years and months
   set {y, m} to {m div 12, m mod 12}
   -- Add the year offset into the new date's year
   set newDate's year to (newDate's year) + y
   -- Add the odd months (at 32 days per month) and set the day
   if m is not 0 then tell newDate to set {day, day} to {32 * m, day}
   -- If the day's now wrong, it doesn't exist in the target month
   -- Subtract the overflow into the following month to return to the last day of the target month
   if newDate's day is not oldDate's day then set newDate to newDate - (newDate's day) * days
   return newDate
end addMonths

to getNearestWkDay(aDate, tWeekDay)
   -- get the day of the date given (used to check later)
   set tDay to day of aDate
   -- get the days in the month so we won't run over to the nearest day
   set DaysInMo to 32 - ((aDate + (32 - (aDate's day)) * days)'s day) -- N.G. again
   set OffBy to (tWeekDay as number) - (weekday of aDate)
   -- go back or forward for closest day of the week
   if OffBy < -3 then
       set OffBy to OffBy + 7
   else if OffBy > 3 then
       set OffBy to OffBy - 7
   end if
   -- check that offset doesn't move into another month
   -- don't jump forward into next month to nearest weekday
   if tDay + OffBy > DaysInMo then set OffBy to OffBy - 7
   -- don't jump backward into former month to nearest weekday
   if tDay + OffBy < 1 then set OffBy to OffBy + 7
   set newDate to aDate + OffBy * days
   return newDate
end getNearestWkDay