<成人の日> CLOSE; DISP OPEN; DISP [20, 4]," ===== 成人の日を算出します ====="; INPUT [20, 6],"西暦年を4桁で指定してください。 → ",V10,U(NNNN); /***** 指定年の元日 *****************************************************/ LET V11=V10+"0101"; LET Z11=VAL(V11); DISP [20,10],"指 定 年 の 元 日 : ",V11; /***** 元日の曜日連番（日曜日が０）**************************************/ LET Z12=DATEVAL(V11) MOD 7; DISP [20,11],"元日の曜日連番（日曜日が０）: ",Z12; /***** 成人の日 *********************************************************/ LET Z13=9-Z12+INT((Z12+5)/7)*7; DISP [20,12],"成 人 の 日 : ",V10,"年1月",Z13,"日"; /***** おまけ ***********************************************************/ /***** （Thanks Giving Day = １１月の第４木曜日）********************/ LET Z22=DATEVAL(V10+"1101") MOD 7; LET Z23=26-Z22+INT((Z22+2)/7)*7; DISP [20,14],"（おまけ） 感 謝 祭 : ",V10,"年11月",Z23,"日"; INPUT [20,17],"了解したら [Enter] を押してください。 → ",V01,U(J); CLOSE; STOP;