I’ve received one those FW:…:FW emails yesterday with the following text:

2011 is an unusual year. Add the last two digits of your birth year to the age you will turn on your birthday this year and you’ll get 111! (…)
This year, July has 5 Fridays, 5 Saturdays and 5 Sundays. This happens once every 623 years. This is called money bags. So, forward this to your friends and money will arrive within 4 days. (…) October 2010 has 5 Fridays, 5 Saturdays and 5 Sundays and that this combination of days only occurs once in 823 years.Based on Chinese Feng Shui the one who does not forward ….. will be without money. I’m not taking any chances!

These ‘facts’ are not terribly surprising. The first one simply boils to down to adding your date of birth to your age to find, surprise!, the current year. Well, meh.

Secondly, having three consecutive days appearing 5 times in a month is a given as soon as the month has 31 days: to use the example given, if the first day of the month is a Friday, the first Sunday will happen on the 3rd and the last and fifth Sunday will be on the 3+4*7=31st. So no surprise there.

But how often do we have this specific instance,i.e. 5 Fridays, 5 Saturdays and 5 Sundays in July? We could calculate that easily given that it happens this year and that there are 365 days/year most years; since 365=1 mod 7, we expect to move forward by one week day every year, and by 2 days on leap years. But we can also have a quick look at the last 100 years using R and not spend too much time on such silliness:

year<-1911:2011
firstOfJuly<-ISOdate(year,07,01) # all the first of July's of the last 100 years
y<-year[weekdays(firstOfJuly)=='Friday'] # which ones are Friday's?
y

[1] 1921 1927 1932 1938 1949 1955 1960 1966 1977 1983 1988 1994 2005 2011

diff(y)
[1] 6 5 6 11 6 5 6 11 6 5 6 11 6