(あっ。4行目でFLOOR()してるから>>0要らないのか) ボク的にうるう年の判定は IF DY MOD 400==0　THEN N=29 ELSEIF DY MOD 100==0 THEN N=28 ELSEIF DY MOD 4==0 THEN N=29 ENDIF が一番好きですね。