COBOLって今需要増えてるの？Part7

[9 仕様書無しさん 2018/06/02(土) 11:05:00.48]

EVALUATE ZERO
WHEN FUNCTION MOD(YEAR 400)
　DISPLAY '閏年'
WHEN FUNCTION MOD(YEAR 100)
　DISPLAY '平年'
WHEN FUNCTION MOD(YEAR 004)
　DISPLAY '閏年'
WHEN OTHER
　DISPLAY '平年'
END-EVALUATE.