C=0;D="{今年}/{今月}/13"
もし(MID(今日,9,2)>13)ならば
	D=Dに"/1/"を日付加算
(D<>"2014/01/13")の間
	もし(Dの曜日="金")ならば
		C=C+1
	D=Dに"/1/"を日付加算
Cを表示