まさにこう書きたい＞＜（Adaの標準ライブラリの中身）
subtype Year_Number is Integer range 1901 .. 2099;
subtype Month_Number is Integer range 1 .. 12;
subtype Day_Number is Integer range 1 .. 31;