[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