【名　　称】　用紙作成.DEF
【登 録 名】　用紙作成.DEF
【制作者名】　森本剛
【掲載者名】　森本剛 (QZB05750)
【動作環境】　ＶZエディタが動作する環境

**************************「誕生暦」用紙作成マクロ***************************
;○このマクロを使うには、エディダー"VZ"が必要です。VZと同じディレクトリーに
;　このマクロを格納して下さい。マクロのファイル名は"用紙作成.DEF"等、拡張子に
;　".DEF"をつけて下さい。
;○VZを起動し、適当なファイルを画面に呼出したら、[ESC]を押してから[^]を押すと
;  マクロを選択するメニューがでます。
;○出来上り見本（一月分）。出来上がる用紙のファイル名は、"暦用紙"です。
;  一週間が月曜から始まり、土・日が右端にくる形式にしてあります。
;・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
;・　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　・
;・　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 2　　月　　　・
;・　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　・
;・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
;・　　　　　　　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・　　　月　　　　・　　　火　　　　・　　　水　　　　・　　　木　　　　　・
;・　　　　　　　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
;・　　　↑　　　　・　　　　　　　　・　　　( 1)　　　・　　　( 2)　　　　・
;・　　　↑　　　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・　　　９　　　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・　　　行　　　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・←←８・→→→→・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・　　桁↓　　　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・　　　↓　　　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・　　　↓　　　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・　　　↓　　　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
;＝　　　　　　　　＝　　　　　　　　＝　　　　　　　　＝　　　　　　　　　＝
;・ひと月当り、　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・６週間分の枠　　・　　　　　　　　・　　　　　　　　・　　　　　　　　　・
;・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
================================用紙作成.DEF==================================
* M
89 ^\   ""
;	&t
	&s
	?.
	mi-,o-,
	#N &?("暦用紙") #m,
	Ew-,Bt64,Bq256,WD130,
:A	&01,(62){&02},&03,#m,g-,h-,i-,j-,k-,l-,m-,n-,t-,	;1
:B	(g<3)? {&06,(62){&12},&06,#m,g++,>B,} {&07,>C,},	;2-4
:C	(h<6)? {(8){&02},&09,h++,>C} {(8){&02},&08,#m,>D,}	;5
:D	(i<3)? {&06,>E} >K,					;・6-8
:E	(j<7)? {(8){&12},&06,j++,>E,} {#m,i++,j-,>D,}		;・
:K	&07
:F	(t<6)? {(8){&02},&11,t++,>F,} {(8){&02},&08,#m,t-,>G}	;・9
:G	(k<9)? {&06,>H,} {k-,m++,(m<=5)? >K {&04,>I},}		;・10-19
:H	(l<7)? {(8){&12},&06,l++,>H,} {#m,l-,k++,>G,}		;・X 6
:I	(n<6)? {(8){&02},&10,n++,>I,} {(8){&02},&05,#m,#m,o++,>J,}
:J	(o<12)? {&m("%u月分枠組完了",o),>A} {&m("１年分枠組完了"),&d,}
	#<,#^,#F,&03,#m,u-,mi+,
:O	u++,(u>12)? >N,#c,&x(61),(2){#x},&?("%2u　月",u),mi-,&?("　"),(4){#x},
:L	mi+,&x(9),&?("月"),&x(27),&?("火"),&x(45),&?("水"),&x(63),&?("木"),&x(81),&?("金"),&x(99),&?("土"),&x(117),&?("日"),>O,
:N	E=7,M+,mi-,	;曜日,月
	F=31,		;月の最終日
	D+,		;日
	#^,#<,
	&y(9),		;1995/01/01の位置
:M	&13,&x(C),&?("("),&?("%2u",D),&?(")"),(4){#d},#f,(2){#h},D++,E++,	;記入
	(E>7)? {E+,&#c(10)},						;次の日
	(D>F)? {D+,M++,#F,&?("月"),#m,#c,(r<0)? .,&#c(7),&14,>M} >M,	;次の月
1:	&?("・"),
2:	&?("・"),
3:	&?("・"),
4:	&?("・"),
5:	&?("・"),
6:	&?("・"),
7:	&?("・"),
8:	&?("・"),
9:	&?("・"),
10:	&?("・"),
11:	&?("・"),
12:	&?("　"),
13:	C=E*18-10,	;日付を書き込む桁
14:	F=31,(M==4 || M==6)? F=30,(M==9 || M==11)? F=30,(M==2)? F=28,
*
====================================END========================================