ＶＭＵＧ相談室

[記事表示に戻る] [ツリートップの表示に戻る] 
◇-ハッピーマンデー-Ｇｏｍｉ(6/28-07:07)No.64
トップに戻る
64ハッピーマンデーＧｏｍｉ URL6/28-07:07

みなさん、こんにちは(^^)

祝日法の改正に伴いσ(^^)のマイツールで作るカレンダーを改正しました。
同時に「2001年から2010年までの大安でかつ土日祝休日の日」も訂正しました。
あまり長続きのしないデータと痛感しております(^^;

作成に某所で公開したオートを使ったところ2035年〜50年　2085年以降のデータが
消えてしまうことに気づいたので　訂正版をここにアップします。
要はハッピーマンデーを探すオートです。「成人の日」と「体育の日」は多少の
修正でできますので、独自で　まいちゃんを触ってみてくださいm(_ _)m
----------------------------------------------------------------------
-------
[HAPPY] 01.06.27 混 L=9004
C=0082
GOTO *ST:
F=1,72,1
*ST
F:祝日表:10*8::
年月日:年:月:日:日数:週:曜:祝::ESC:
CPS:80:
W:S1:W:S4:
FOR Z01=2003 TO 2036:
GOSUB *月曜:
NEXT Z01:
R:S4:W:S2:
R:S1:W:S4:
FOR Z01=2037 TO 2070:
GOSUB *月曜:
NEXT Z01:
R:S4:W:S3:
R:S1:W:S4:
FOR Z01=2071 TO 2100:
GOSUB *月曜:
NEXT Z01:
STOP:
*月曜
R:S1:
ILS:T+1:62:
DR:0:2:
SEQ[1,1]=C4,6-36:SEQ[1,1]=C4,37-T:(Z01)=C2:7=C3,6-36:9=C3,37-T:
C2*10000+C3*100+C4=C1:YMD[C1-18991231]=C5:C5MOD7=C7:C5/7=C6:
SH::@曜=1:@月=7:::
"海の日"=@祝:
SVL:8:X:
SH::@曜=1:@月=9:::
DL:6,9-T:
"敬老の日"=@祝:
LDL:6:X:
R:S4:ILB:A:T+1:W:"*":
RETURN:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~