Gustav Brock
gustav at cactus.dk
Mon Jul 19 10:41:17 CDT 2004
Hi Arthur Oops, got mixed up some copy and paste. Should read: DateThisMonthLast = DateSerial(Year(datDateThisMonth), _ Month(datDateThisMonth) + 1, 0) Gustav > DatePreviousMonthLast = DateSerial(Year(datDateThisMonth), _ > Month(datDateThisMonth) + 1, 0)