[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

(DTPtechNote:734) きょうのNHKのニュースで



「2月29日が日曜なのは28年ぶりなんですよ」
と、さもニュースのように言っていたけれど、
とりあえず前後100年くらいの2月29日は、28年周期で曜日が変わりますよね。
#それ以上のオーダーは予測できないかもしれないので。。。

こんな感じの周期です。
まあ言うほどのことではないけれど、視覚化してみました(笑)

set buff to ("Y" as Unicode text) & tab & "SMTWTFS" & return
repeat with Y from 1900 to 2100 by 4
	if Y mod 400 = 0 or Y mod 100 ≠ 0 and Y mod 4 = 0 then
		set W to weekday of date ((Y as Unicode text) & ".2.29")
		if W = Sunday then
			set buff to buff & (Y as Unicode text) & tab & "●○○○○○○" & return
		else if W = Monday then
			set buff to buff & (Y as Unicode text) & tab & "○●○○○○○" & return
		else if W = Tuesday then
			set buff to buff & (Y as Unicode text) & tab & "○○●○○○○" & return
		else if W = Wednesday then
			set buff to buff & (Y as Unicode text) & tab & "○○○●○○○" & return
		else if W = Thursday then
			set buff to buff & (Y as Unicode text) & tab & "○○○○●○○" & return
		else if W = Friday then
			set buff to buff & (Y as Unicode text) & tab & "○○○○○●○" & return
		else if W = Saturday then
			set buff to buff & (Y as Unicode text) & tab & "○○○○○○●" & return
		end if
	end if
end repeat
get buff