关于钱币之月

      最近经常有人在QQ里发下面这个信息：

      2010年的10月份是个不寻常的月份，这个月份中有5个星期五，5个星期六，5个星期日，这种情况需要823年后才能再次出现，这种月份被认为是钱币之月，如果把这个消息发送给包括我在内的8位好朋友，，4天以后就会有钱币上的收获，这是风水学上的理论，如果不去发送将会丢失成功的机会。

      823年，my god，没搞错吧，为了验证以上说法是否正确，于是写了下面一段4gl代码：

main define yy int define mm int define firstday date define week int define lastday date define yys string define mms string define yymm string whenever error continue let yy=1975 let mm=1 display '符合条件年月：' while yy<2099 for mm=1 to 12 let firstday=mdy(mm,1,yy) let week=weekday(firstday) let lastday=mdy(mm,31,yy) if (status=0) and (week=5) then let yys = yy let mms = mm let yys = yys.trim() let mms = mms.trim() if mm<10 then let yymm=yys,'0',mms else let yymm=yys,mms end if display yymm end if end for let yy = yy +1 end while end main

哈哈，结果出来了：从我出生的年份到2099年出现某个月份有5个星期五，5个星期六，5个星期日的年月有这么多：

197508
197610
197707
197812
198008
198105
198201
198210
198307
198503
198608
198705
198801
198807
198912
199103
199205
199301
199310
199407
199512
199603
199708
199805
199901
199910
200012
200203
200308
200410
200507
200612
200808
200905
201001
201010
201107
201303
201408
201505
201601
201607
201712
201903
202005
202101
202110
202207
202312
202403
202508
202605
202701
202710
202812
203003
203108
203210
203307
203412
203608
203705
203801
203810
203907
204103
204208
204305
204401
204407
204512
204703
204805
204901
204910
205007
205112
205203
205308
205405
205501
205510
205612
205803
205908
206010
206107
206212
206408
206505
206601
206610
206707
206903
207008
207105
207201
207207
207312
207503
207605
207701
207710
207807
207912
208003
208108
208205
208301
208310
208412
208603
208708
208810
208907
209012
209208
209305
209401
209410
209507
209703
209808

       可见，有些人只知道乱贴东西，却不加思考。人云亦云的人，可悲！即便是10月份，这么多年之间也是有很多个的。其实算法逻辑很简单，只要这个月份有31天，且此月份第一天是周五，就会出现这种情况。