This command passes the test: on date_AddMonth monthsToAdd, startDate, @endMonth, @endYear /* Problem is if new month has less days in it than the original start date days then just adding a month will add 2 months on conversion as the overlap pushes it over the month
-- can add extra month if next months max days are shorter -- not a bug a feature? Or could trucate day to last of month? */ convert startDate to dateItems put startDate into someDate put item 3 of someDate into oDay put 1 into item 3 of someDate put 2 into item 4 of someDate # seems to be required !!! add monthsToAdd to item 2 of someDate convert someDate to dateItems put item 1 of someDate into endYear put item 2 of someDate into endMonth put oDay into item 3 of someDate convert someDate to internet date return someDate end date_AddMonth on mouseUp put "2002,1,31,1,0,0,5" into startDate put 1 into lastMonth put lastMonth into endMonths repeat with statementNumber = 1 to 14 set the cursor to busy date_AddMonth statementNumber, startDate, endMonth, endYear put space & endMonth after endMonths if statementNumber mod 12 is not (endMonth - 1) then put merge("Failed adding [[statementNumber]] to [[abbeyStartDate]]. Resulted in [[someMonth]]") end if end repeat put endMonths end mouseUp And prints out: 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 Does this work on other platforms? Note I had to inset 2 into item 4 of the dateItems to get it to work (the hours) which has never made any sense to me - but is Revs version of midnight :) It would be nice to test it on other versions and platforms as the convert to dateitems does seem a little flakier than I thought? _______________________________________________ use-revolution mailing list use-revolution@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-revolution