;hsp3.21
;
#include "anthspex3.as"
;↓added by hsp2to3
dim br,16
sdim s,64
sdim t,64
sdim u,64
;↑added by hsp2to3
;このカレンダーは、以下のことを事実と考えて作られています
;・紀元前46年からユリウス暦（したがって、それ以前の動作は未定義）
;・紀元前44年から紀元前8年まで、誤って3年ごとに13の閏年が設けられた
;・上記の誤りを正すため、紀元前5年、紀元前1年、西暦4年は閏年にしなかった
;・紀元前1年の翌年は西暦1年
;・1582年10月4日の翌日は10月15日で、この日からグレゴリオ暦
; （実際の採用は国によって異なる）
;※日本については1873年１月１日から有効
fsize=16
hw=fsize+4 ;１日分の高さ
bday=fsize+8 ;１日分の横幅
bmon=bday*7+8 ;１月分の横幅
;各月の日数
dim mday,13
;mday.2（２月の日数）は後で書き換える
mday=0,31,28,31,30,31,30,31,31,30,31,30,31
;国民の祝日
nholiday=15
dim holidaym,nholiday
dim holidayd,nholiday
dim holidayw,nholiday
dim holidayy,nholiday
;↓後で年による修正が行なわれる
; 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14
holidaym=1,1, 2,3, 4,5,5,5,7,9, 9,10,11,11,12
holidayd=1,0,11,0,29,3,4,5,0,0, 0, 0, 3,23,23
holidayw=0,2, 0,0, 0,0,0,0,3,3, 0, 2, 0, 0, 0
;holidayd=0 は春分・秋分・第n月曜
;holidaywは第何月曜か
;有効開始年
; 正月 成人 建国 春分 昭和 憲法 みど 子供 海 敬老 秋分 体育 文化 勤労 天皇
; 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14
holidayy=1873,1948,1873,1948,1912,1948,1985,1948,1996,1966,1948,1966,1873,1948,1989
;画面
wid=bmon*4+16: heit=(8*3+3)*hw
screen 0,wid,heit,,(ginfo_dispx-wid)/2,(ginfo_dispy-heit)/2
title "-46年（日本では1873年）から有効なカレンダー"
getsyscolor br,15: if br==192 {
br--
}
dup bg,br.1: if bg==192 {
bg--
}
dup bb,br.2: if bb==192 {
bb--
}
color br,bg,bb: boxf
font "ＭＳ ゴシック",fsize: color
year=gettime(0)
wyear=fsize*2+10: hyear=fsize
objh=fsize+8
btw=fsize+8: objsize btw
x=(wid-(btw*2+wyear+44))/2: y=8
pos x,y: button "←", *l_back: x+=btw+4: btleft=oid: oid++
inyear=""+year
xyear=x: yyear=y+4
pos x,y: input inyear,wyear,objh,4: x+=wyear: inid=oid: oid++
pos x,y+4: mes "年": x+=fsize+4
pos x,y: button "→", *l_forw: x+=btw+4: btrit=oid: oid++
begy=y+32
*l_restart
if year<0 {
if year<-7 { ;-8年以前
if year\3==-2 {
mday.2=29
} else {
mday.2=28
}
} else { ;～-1年
mday.2=28
}
} else { if year\4!=0 { ;４の倍数でない
mday.2=28
} else { if year\400==0 { ;４００の倍数
mday.2=29
} else { if year\100==0 { ;１００の倍数
if year<1582 {
mday.2=29
} else {
mday.2=28
}
} else { if year!=4 { ;４年でない
mday.2=29
} else { ;４年
mday.2=28
} } } } }
if year>1872 {
;春分の日・秋分の日の計算
d=year-2000
e=d*2421904
holidayd.3 =(e+6911500)/10000000-(d/4)+(d/100)-(d/400)+20
holidayd.10=(e+ 900000)/10000000-(d/4)+(d/100)-(d/400)+23
;祝日
repeat nholiday
if holidayw.cnt>0 {
;第 n 月曜の祝日の日付確定
getweek c,year,holidaym.cnt,1
d=holidayw.cnt*7
if c<2 { ;1日が日曜か月曜のとき
holidayd.cnt=d-5-c
} else { ;1日が火曜～土曜のとき
holidayd.cnt=d+2-c
}
}
loop
if 1912<=year&(year<=1913) { holidaym.4=8: holidayd.4=31 } ;天長節（大正）
else { if 1914<=year&(year<=1926) { holidaym.4=10: holidayd.4=31 } ;同上
else { if 1927<=year { holidaym.4=4: holidayd.4=29 } } } ;昭和天皇誕生日
if 1948<=year {
if year<=1999 {
holidayd.1=15 ;成人の日
}
}
if 1948<=year&(year<1966) { holidayd.2=0 } ;建国記念の日
else { holidayd.2=11 }
if year>=1966 {
if year<=1999 {
holidayd.11=10 ;体育の日
}
if year<=2002 {
holidayd.9=15: holidayd.8=20 ;敬老の日、海の日
}
}
}
;１月１日の曜日
if year>=1582 { ;1582年～
getweek week,year,1,1
if year==1582 {
week=(week+3)\7
}
} else { if year>4 { ;5～1581
week=(year*365+((year-1)/4)+5)\7
} else { if year>0 { ;1～4
week=(year*365+6)\7
} else { if year>-8 { ;-7～-1
week=(year+84)*365\7
} else { ;-44～-8
week=((year+84)*365+((year+85)/3)+2)\7
} } } }
;カレンダー表示
by=begy: mon=1
color br,bg,bb: boxf 16,by,wid,heit
repeat 12
;月の表示
bx=(mon-1)\4*bmon+16: y=by
color: pos (bday*7-32)/2+bx,y: mes ""+mon+"月"
;曜日の表示
x=bx: y+=hw
digit s,""+year,'0',4: digit t,""+mon,'0',2
s+=t
if s!"187300">0&(s!"187603"<0) { color }
else { color 255,0,0 }
pos x,y: mes "日": x+=bday
color: pos x,y: mes "月 火 水 木 金": x+=bday*5
if year>=1873&(s!"187603"<0)|(year<1850) { ;～1850,1873/1～1876/2
color
} else { ;1872年以前と1876/3～
if s!"199204">0 { color 255,0,0 } ;1992/5～
else { color 0,0,255 }
}
pos x,y: mes "土"
;日付の表示
day=1-week: y+=hw
repeat 6
x=bx
w=0
repeat 7
if day>0 {
;祝日判定
flg=0 ;祝日フラグ
repeat nholiday
if holidayd.cnt==day {
if holidaym.cnt==mon {
;日本では1873年１月１日より太陽暦。
;それ以前の祝日は意味なし
if year>1872 { if year>=holidayy.cnt {
flg=1
if year>2007 {
;祝日の間の日は休日（敬老と秋分の差が２日の場合）
if cnt==9 {
if day+2==holidayd.10 {
furikae=1
}
}
}
} }
}
}
loop
r=0: b=0
digit s,""+year,'0',4: digit t,""+mon,'0',2: digit u,""+day,'0',2
s+=t+u
if year>=1873&(s!"18760312"<0) { ;1873年～1876年３月11日
if day\5==1 {
if day!=31 {
r=255
}
}
} else { ;1872年以前と1876年３月12日以降
if (cnt==6) { ;土曜
if s!"19920500">0|flg { r=255 }
else { if year>=1850 { b=255 } }
} else { if cnt==0 { ;日曜
r=255
if flg {
if s!"19730412">=0 {
furikae=1
}
}
} else { ;土日以外
r=0
if flg {
r=255
} else {
if furikae {
r=255: furikae=0
}
}
} }
}
;日付の表示
color r,0,b
pos x,y
astr s,day,2,' '
mes s
}
day++
if year==1582 {
if mon==10 {
if day==5 {
day=15
}
}
}
if day>mday.mon {
week=(cnt+1)\7 ;翌月１日の曜日
break
}
x+=bday
w++
loop
if day>mday.mon {
break
}
y+=hw
loop
mon++
if (mon-1)\4==0 {
by+=hw*8
}
loop
objsel inid: objselstr inid,0,-1
;キー入力待ち
repeat: wait 10
stick key,,1
if key&37 {
break ;←,→,Enter
}
prmx=ginfo_act: prmy=ginfo_sel
if act!=prmx {
if prmx==0 {
objsel inid: objselstr inid,0,-1
}
act=prmx
}
loop
if key==1 {
goto *l_back ;←
}
if key==4 {
goto *l_forw ;→
}
;Enter
year=0+inyear
if year==0 {
year=1: goto *l_setyear
}
goto *l_restart
*l_back
year--
if year==0 {
year=-1
}
goto *l_setyear
*l_forw
year++
if year==0 {
year=1
}
*l_setyear
s=""+year
objprm inid,s
goto *l_restart
たまにバグあり。
