tj:=if(MONTH<>1 and MONTH<>2and MONTH<>3 and MONTH<>4 and MONTH<>6 and MONTH<>7 and MONTH<> 8and MONTH<>9 and MONTH<>10 and MONTH<>11 and MONTH<>12,1,0); VERTLINE(tj,2);
