おお。id:mimpoo さんが、VisualWorks の Smalltalk で。じゃあ、Strongtalk で書いてみようかな…と心にもないことを。ｗ
Month ってないんですね。 Squeak のはてっきり ANSI 由来だと思い込んでいました。
追記：
とりあえず VisualWorks 版を、mimpoo さんとは別アプローチで。
| today month year daysInMonth lastDayOfMonth | today := Date today. month := today monthIndex. year := today year. daysInMonth := today daysInMonth. lastDayOfMonth := Date newDay: daysInMonth monthNumber: month year: year. (lastDayOfMonth previous: #Sunday) dayOfMonth // 7 + 1
追々記：
調べてみたら、Strongtalk では、デフォで日付の計算ができませんでした。orz （Date class >> #julian:、Date >> #julian が self unimplemented ）
