2013年7月28日投稿 / 投稿者 :がんばるそふてに / タグ : 投稿プログラム QRコード
曜日を計算する簡易ソフトです。
なんとなく暇だったので作ってみました。
年月日を入力して終了。 一応、紀元前は「-○○(年)」で計算出来ます
ツェラーの公式というものを使っております。
プチコンmkII 向けの QR コードです。
- ACLS
- @S
- ?”ヨウヒ゛アテフ゜ロク゛ラム”
- ?”キョウハ ”DATE$
- INPUT ”ナンネン”;Y
- @M
- INPUT ”ナンカ゛ツ”;M
- IF M<13 AND M>0 THEN ELSE @M
- IF M<3 THEN M=M+12:Y=Y-1
- INPUT ”ナンニチ”;D
- H=(D+FLOOR(26*(M+1)/10)+Y+FLOOR(Y/4)-(M>12))%7
- IF H==0 THEN D$=”キン”
- IF H==1 THEN D$=”ト゛”
- IF H==2 THEN D$=”ニチ”
- IF H==3 THEN D$=”ケ゛ツ”
- IF H==4 THEN D$=”カ”
- IF H==5 THEN D$=”スイ”
- IF H==6 THEN D$=”モク”
- ?Y”/”D”/”D,D$”ヨウヒ゛”
- GOTO @S
高
低
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)