;--------------------------------------
;	day_get p1,p2,p3	[曜日を求める]
;
;	p1=0〜 : 西暦
;	p2=1〜12 : 月
;	p3=1〜31 : 日
;	
;	０を日曜、１を月曜・・・としてstatに値が返る
;	昔の曜日は当てになりません
;	１９００年以降で使用することをお勧めします
;	また、日にちを31以上にした場合指定した月
;	から、何日ということで、結果に間違いはありません
;	（たとえば12月32日とすると1月1日のことです）
;	月についても同様です
;--------------------------------------
#module
#deffunc day_get int,int,int
	mref Y,0
	mref M,1
	mref D,2
	mref st,64
	A=(12-M)/10
	B=((16*A)+(13*M)+8)/5
	C=Y-A*5/4
	E=(Y-A)/100
	F=E/4
	st=(B+C+D-E+F)\7
	return
#global

;--------------------------------------
;	ここから、サンプルプログラム
;	実際に使うときは削除してください
;--------------------------------------
sdim youbi,4,7
youbi="日","月","火","水","木","金","土"

day_get 2000,13,1
mes youbi.stat
stop