閏年計算

rem =================================================
rem 閏年計算
rem      If n Mod 400 = 0 Or (n Mod 4 = 0 And n Mod 100 <> 0) Then
rem      MsgBox s + "是閏年！"
rem =================================================
set DateFull=20010319
set DateYear=%DateFull:~0,4%
set DateMonth=%DateFull:~4,2%
set DateDay=%DateFull:~6,2%
set DateLeap=0

set DateYear=%1

set /a DateCal=DateYear-DateYear/400*400
echo DateCal=%DateCal%
if %DateCal% == 0 (
    set DateLeap=1
    goto LeapEnd
    )

set /a DateCal=DateYear-DateYear/4*4
set /a DateCal2=DateYear-DateYear/100*100
echo DateCal=%DateCal%
echo DateCal2=%DateCal2%
if %DateCal% == 0 (
    if %DateCal2% == 0 (
        set DateLeap=0
        goto LeapEnd
        )
    set DateLeap=1
    )

:LeapEnd