干支(えと)の計算

!干支(えと) の計算

DIM 干支$(0 TO 9), 十二支$(0 TO 11)

MAT READ 干支$
DATA "庚　こう　　かのえ　　金の兄" ! 0
DATA "辛　しん　　かのと　　金の弟" ! 1
DATA "壬　じん　みずのえ　　水の兄" ! 2
DATA "癸　き　　みずのと　　水の弟" ! 3
DATA "甲　こう　　きのえ　　木の兄" ! 4
DATA "乙　おつ　　きのと　　木の弟" ! 5
DATA "丙　へい　　ひのえ　　火の兄" ! 6
DATA "丁　てい　　ひのと　　火の弟" ! 7
DATA "戊　ぼ　　つちのえ　　土の兄" ! 8
DATA "己　き　　つちのと　　土の弟" ! 9

MAT READ 十二支$
DATA "申　しん　　　さる　　　さる" ! 0
DATA "酉　ゆう　　　とり　　　とり" ! 1
DATA "戌　じゅつ　　いぬ　　　いぬ" ! 2
DATA "亥　がい　　　　い　いのしし" ! 3
DATA "子　し　　　　　ね　　ねずみ" ! 4
DATA "丑　ちゅう　　うし　　　うし" ! 5
DATA "寅　いん　　　とら　　　とら" ! 6
DATA "卯　ぼう　　　　う　　うさぎ" ! 7
DATA "辰　しん　　　たつ　　　たつ" ! 8
DATA "巳　し　　　　　み　　　へび" ! 9
DATA "午　ご　　　　うま　　　うま" ! 10
DATA "未　び　　　ひつじ　　ひつじ" ! 11

CALL 干支十二支(2006)
CALL 干支十二支(2007)
CALL 干支十二支(2008)

SUB 干支十二支(yyyy)
PRINT "____________________________"
PRINT yyyy;"年の干支(えと)"
PRINT "　　音　　　　　訓　　　意味"
PRINT "----------------------------"
PRINT 干支$(MOD(yyyy,10))
PRINT 十二支$(MOD(yyyy,12))
PRINT yyyy-60;"年生れの方は、この年(";yyyy;"年)が、還暦です。"
PRINT
END SUB

!----------------------
SET ECHO "off"
DO
INPUT PROMPT "調べる年は、西暦何年？(空打ち終了)": y$
IF y$="" THEN EXIT DO
WHEN EXCEPTION IN
CALL 干支十二支(VAL(y$))
USE
beep
PRINT "半角数字で、西暦を。(空打ち終了)"
END WHEN
LOOP
PRINT "終了。"

END

干支(えと) の計算	返事を書くノートメニュー
SECOND <jjqdmekgpt> 2008/01/12 02:18:50 ** この記事は1回修正されてます
!干支(えと) の計算 DIM 干支$(0 TO 9), 十二支$(0 TO 11) MAT READ 干支$ DATA "庚　こう　　かのえ　　金の兄" ! 0 DATA "辛　しん　　かのと　　金の弟" ! 1 DATA "壬　じん　みずのえ　　水の兄" ! 2 DATA "癸　き　　みずのと　　水の弟" ! 3 DATA "甲　こう　　きのえ　　木の兄" ! 4 DATA "乙　おつ　　きのと　　木の弟" ! 5 DATA "丙　へい　　ひのえ　　火の兄" ! 6 DATA "丁　てい　　ひのと　　火の弟" ! 7 DATA "戊　ぼ　　つちのえ　　土の兄" ! 8 DATA "己　き　　つちのと　　土の弟" ! 9 MAT READ 十二支$ DATA "申　しん　　　さる　　　さる" ! 0 DATA "酉　ゆう　　　とり　　　とり" ! 1 DATA "戌　じゅつ　　いぬ　　　いぬ" ! 2 DATA "亥　がい　　　　い　いのしし" ! 3 DATA "子　し　　　　　ね　　ねずみ" ! 4 DATA "丑　ちゅう　　うし　　　うし" ! 5 DATA "寅　いん　　　とら　　　とら" ! 6 DATA "卯　ぼう　　　　う　　うさぎ" ! 7 DATA "辰　しん　　　たつ　　　たつ" ! 8 DATA "巳　し　　　　　み　　　へび" ! 9 DATA "午　ご　　　　うま　　　うま" ! 10 DATA "未　び　　　ひつじ　　ひつじ" ! 11 CALL 干支十二支(2006) CALL 干支十二支(2007) CALL 干支十二支(2008) SUB 干支十二支(yyyy) PRINT "____________________________" PRINT yyyy;"年の干支(えと)" PRINT "　　音　　　　　訓　　　意味" PRINT "----------------------------" PRINT 干支$(MOD(yyyy,10)) PRINT 十二支$(MOD(yyyy,12)) PRINT yyyy-60;"年生れの方は、この年(";yyyy;"年)が、還暦です。" PRINT END SUB !---------------------- SET ECHO "off" DO INPUT PROMPT "調べる年は、西暦何年？(空打ち終了)": y$ IF y$="" THEN EXIT DO WHEN EXCEPTION IN CALL 干支十二支(VAL(y$)) USE beep PRINT "半角数字で、西暦を。(空打ち終了)" END WHEN LOOP PRINT "終了。" END