þÿ f u n c t i o n   j c a l ( ) {  
 v a r   n o w   =   n e w   D a t e ( ) ;  
 v a r   y e a r   =   n o w . g e t F u l l Y e a r ( ) ;  
 v a r   m o n t h   =   n o w . g e t M o n t h ( )   +   1 ;  
 v a r   t o d a y   =   n o w . g e t D a t e ( ) ;  
 n o w . s e t D a t e ( 1 ) ;  
 v a r   s t a r t D a y   =   n o w . g e t D a y ( ) ;  
 v a r   m o n t h d a y s   =   n e w   A r r a y ( 3 1 ,   2 8 ,   3 1 ,   3 0 ,   3 1 ,   3 0 ,   3 1 ,   3 1 ,   3 0 ,   3 1 ,   3 0 ,   3 1 ) ;  
 v a r   d a t e M a x   =   m o n t h d a y s [ m o n t h   -   1 ] ;  
 i f   ( m o n t h   = =   2   & &   ( ( y e a r % 4   = =   0   & &   y e a r % 1 0 0   ! =   0 )   | |   y e a r % 4 0 0   = =   0 ) )   d a t e M a x   =   2 9 ;  
  
  
 / /  _Suj‘MR0nRgS  
 v a r   d u t y d a y s   =   n e w   A r r a y ( ) ;  
 f o r   ( v a r   i   =   0 ;   i   < =   d a t e M a x ;   i + + )   d u t y d a y s [ i ]   =   0 ;  
 / /  _SujeåÿOUg0nOUeå0Kÿ  
 v a r   d u t y d a y s 1   =   n e w   A r r a y ( 1 , 4 ,   2 , 1 ,   3 ,   1 ,   4 ,   5 ,   5 ,   4 ,   5 ,   5 ,   5 ,   6 ,   5 , 3 1 ,   7 ,   5 ,   8 ,   2 ,   9 ,   6 , 1 0 ,   4 , 1 1 , 1 , 1 1 ,   3 , 1 2 ,   6 ) ;  
 v a r   f i r s t S u n d a y   =   ( s t a r t D a y   = =   0 )   ?   1 :   8   -   s t a r t D a y ;  
 f o r   ( i   =   0 ;   i   <   d u t y d a y s 1 . l e n g t h ;   i   + =   2 )   {  
     i f   ( d u t y d a y s 1 [ i ]   = =   m o n t h )   {  
         d u t y d a y s [ d u t y d a y s 1 [ i + 1 ] ]   =   1 ;  
           }  
 }  
  
  
  
 / /  Oim‘MR0nRgS  
 v a r   c l o s e d a y s   =   n e w   A r r a y ( ) ;  
 f o r   ( v a r   i   =   0 ;   i   < =   d a t e M a x ;   i + + )   c l o s e d a y s [ i ]   =   0 ;  
 / /  OimeåÿOUg0nOUeå0Kÿ  
 v a r   c l o s e d a y s 1   =   n e w   A r r a y ( 1 , 9 , 1 , 2 3 ,   2 , 1 4 ,   2 , 2 1 ,   3 , 1 4 ,   3 , 2 1 ,   4 , 1 1 ,   4 , 2 5 ,   5 , 2 3 ,   6 , 1 3 ,   6 , 2 7 ,   7 , 1 1 ,   7 , 1 8 ,   8 , 1 3 ,   8 , 1 4 ,   8 , 1 5 ,   8 , 2 2 ,   9 , 1 2 , 1 0 , 1 0 , 1 0 , 2 4 , 1 1 , 1 4 , 1 1 , 2 1 , 1 2 , 1 2 , 1 2 , 1 9 ) ;  
 v a r   f i r s t S u n d a y   =   ( s t a r t D a y   = =   0 )   ?   1 :   8   -   s t a r t D a y ;  
 f o r   ( i   =   0 ;   i   <   c l o s e d a y s 1 . l e n g t h ;   i   + =   2 )   {  
     i f   ( c l o s e d a y s 1 [ i ]   = =   m o n t h )   {  
         c l o s e d a y s [ c l o s e d a y s 1 [ i + 1 ] ]   =   1 ;  
           }  
 }  
  
  
  
 / /  Oeå‘MR0nRgS  
 v a r   h o l i d a y s   =   n e w   A r r a y ( ) ;  
 f o r   ( v a r   i   =   0 ;   i   < =   d a t e M a x ;   i + + )   h o l i d a y s [ i ]   =   0 ;  
 / /  y]eå 1ÿOUg0nOUeå0Kÿ  
 v a r   H o l i d a y s 1   =   n e w   A r r a y ( 1 , 1 , 1 , 2 ,   2 , 1 1 ,   3 , 2 0 ,   4 , 2 9 ,   5 , 3 ,   5 , 4 ,   5 , 5 , 9 , 2 2 ,   9 , 2 3 , 1 1 , 3 ,   1 1 , 2 3 ,   1 2 , 2 3 , 1 2 , 3 1 ) ;  
 v a r   f i r s t S u n d a y   =   ( s t a r t D a y   = =   0 )   ?   1 :   8   -   s t a r t D a y ;  
 f o r   ( i   =   0 ;   i   <   H o l i d a y s 1 . l e n g t h ;   i   + =   2 )   {  
     i f   ( H o l i d a y s 1 [ i ]   = =   m o n t h )   {  
         h o l i d a y s [ H o l i d a y s 1 [ i + 1 ] ]   =   1 ;  
         f o r   ( v a r   j   =   f i r s t S u n d a y ;   j   <   d a t e M a x ;   j   + =   7 )  
             i f   ( H o l i d a y s 1 [ i + 1 ]   = =   j   )   {   h o l i d a y s [ j + 1 ]   =   1 ;   b r e a k ;   }     / /  c/fÿOeå  
     }  
 }  
  
 / /  y]eå 2ÿOUg0n{,OUgfÜeå0Kÿ  
 v a r   H o l i d a y s 2   =   n e w   A r r a y ( 1 , 2 ,   7 , 3 ,   9 , 3 ,   1 0 , 2 ) ;  
 v a r   f i r s t M o n d a y   =   ( s t a r t D a y   <   2 )   ?   2   -   s t a r t D a y :   9   -   s t a r t D a y ;  
 f o r   ( i   =   0 ;   i   <   H o l i d a y s 2 . l e n g t h ;   i   + =   2 )  
     i f   ( H o l i d a y s 2 [ i ]   = =   m o n t h )   h o l i d a y s [ ( H o l i d a y s 2 [ i + 1 ]   -   1 )   *   7   +   f i r s t M o n d a y ]   =   1 ;  
 v a r   d a y s   =   n e w   A r r a y ( "eå " ,   "g " ,   "pk " ,   "l4 " ,   "g( " ,   "‘Ñ " ,   "W " ) ;  
 d o c u m e n t . w r i t e ( " < t a b l e   c l a s s = ' c a l e n ' > \ n < t r   c l a s s = ' b g 1 ' > < t h   c o l s p a n = 7 > "   +   m o n t h   +   "g < / t h > < / t r > \ n " ) ;  
 d o c u m e n t . w r i t e ( " < t r   c l a s s = ' b g 2 ' > < t h   c l a s s = ' s u n ' > "   +   d a y s [ 0 ]   +   " < / t h > " ) ;  
 f o r   ( i   =   1 ;   i   <   6 ;   i + + )   d o c u m e n t . w r i t e ( " < t h > "   +   d a y s [ i ]   +   " < / t h > " ) ;  
 d o c u m e n t . w r i t e ( " < t h   c l a s s = ' s a t ' > "   +   d a y s [ 6 ]   +   " < / t h > < / t r > \ n " ) ;  
 v a r   c o l   =   0 ,   s 1 ; i f   ( s t a r t D a y   >   0 )   {  
     d o c u m e n t . w r i t e ( " < t r > " ) ;  
     f o r   (   ;   c o l   <   s t a r t D a y ;   c o l + + )   d o c u m e n t . w r i t e ( " < t d > & n b s p ; < / t d > " ) ;  
 }  
 f o r   ( i   =   1 ;   i   < =   d a t e M a x ;   i + + )   {  
     i f   ( c o l   = =   0 )   d o c u m e n t . w r i t e ( " < t r > " ) ;  
     i f   ( c l o s e d a y s [ i ]   = =   1   )   s 1   =   " < t d   c l a s s = ' c l o s e ' > " ;  
     e l s e   i f   ( d u t y d a y s [ i ]   = =   1   )   s 1   =   " < t d   c l a s s = ' d u t y ' > " ;  
     e l s e   i f   ( h o l i d a y s [ i ]   = =   1   | |   c o l   = =   0 )   s 1   =   " < t d   c l a s s = ' s u n ' > " ;  
     e l s e   i f   ( c o l   = =   6 )   s 1   =   " < t d   c l a s s = ' s a t ' > " ;  
  
     e l s e   s 1   =   " < t d > " ;  
     d o c u m e n t . w r i t e ( s 1   +   i   +   " < / t d > " ) ;  
     i f   ( c o l   = =   6 )   {   d o c u m e n t . w r i t e ( " < / t r > \ n " ) ;   c o l   =   0 ;   }   e l s e   c o l + + ;  
 }  
 i f   ( c o l   ! =   0 )   {  
     f o r   (   ;   c o l   <   7 ;   c o l + + )   d o c u m e n t . w r i t e ( " < t d > & n b s p ; < / t d > " ) ;  
     d o c u m e n t . w r i t e ( " < / t r > " ) ;  
 }  
 d o c u m e n t . w r i t e ( " < / t a b l e > " ) ;  
  
  
  
 / *   N e x t   m o n t h   * /  
 m o n t h   =   n o w . g e t M o n t h ( )   +   2 ;  
 i f ( m o n t h = = 1 3 ) {  
 	 m o n t h = 1 ;  
 	 n o w . s e t Y e a r ( y e a r + 1 ) ;  
 }  
  
 n o w . s e t M o n t h ( m o n t h - 1 ) ;  
 n o w . s e t D a t e ( 1 ) ;  
 t o d a y   =   n o w . g e t D a t e ( ) ;  
 s t a r t D a y   =   n o w . g e t D a y ( ) ;  
  
 d a t e M a x   =   m o n t h d a y s [ m o n t h - 1 ] ;  
 i f   ( m o n t h   = =   2   & &   ( ( y e a r % 4   = =   0   & &   y e a r % 1 0 0   ! =   0 )   | |   y e a r % 4 0 0   = =   0 ) )   d a t e M a x   =   2 9 ;  
  
  
 / /  _Suj‘MR0nRgS  
 f o r   ( v a r   i   =   0 ;   i   < =   d a t e M a x ;   i + + )   d u t y d a y s [ i ]   =   0 ;  
 / /  _SujeåÿOUg0nOUeå0Kÿ  
 v a r   f i r s t S u n d a y   =   ( s t a r t D a y   = =   0 )   ?   1 :   8   -   s t a r t D a y ;  
 f o r   ( i   =   0 ;   i   <   d u t y d a y s 1 . l e n g t h ;   i   + =   2 )   {  
     i f   ( d u t y d a y s 1 [ i ]   = =   m o n t h )   {  
         d u t y d a y s [ d u t y d a y s 1 [ i + 1 ] ]   =   1 ;  
           }  
 }  
  
  
  
 / /  Oim‘MR0nRgS  
 f o r   ( v a r   i   =   0 ;   i   < =   d a t e M a x ;   i + + )   c l o s e d a y s [ i ]   =   0 ;  
 / /  OimeåÿOUg0nOUeå0Kÿ  
 v a r   f i r s t S u n d a y   =   ( s t a r t D a y   = =   0 )   ?   1 :   8   -   s t a r t D a y ;  
 f o r   ( i   =   0 ;   i   <   c l o s e d a y s 1 . l e n g t h ;   i   + =   2 )   {  
     i f   ( c l o s e d a y s 1 [ i ]   = =   m o n t h )   {  
         c l o s e d a y s [ c l o s e d a y s 1 [ i + 1 ] ]   =   1 ;  
           }  
 }  
  
 / /  Oeå‘MR0nRgS  
 f o r   ( i   =   0 ;   i   < =   d a t e M a x ;   i + + )   h o l i d a y s [ i ]   =   0 ;  
 / /  y]eå 1ÿOUg0nOUeå0Kÿ  
 f i r s t S u n d a y   =   ( s t a r t D a y   = =   0 )   ?   1 :   8   -   s t a r t D a y ;  
 f o r   ( i   =   0 ;   i   <   H o l i d a y s 1 . l e n g t h ;   i   + =   2 )   {  
     i f   ( H o l i d a y s 1 [ i ]   = =   m o n t h )   {  
         h o l i d a y s [ H o l i d a y s 1 [ i + 1 ] ]   =   1 ;  
         f o r   ( v a r   j   =   f i r s t S u n d a y ;   j   <   d a t e M a x ;   j   + =   7 )  
             i f   ( H o l i d a y s 1 [ i + 1 ]   = =   j   )   {   h o l i d a y s [ j + 1 ]   =   1 ;   b r e a k ;   }     / /  c/fÿOeå  
     }  
 }  
  
 / /  y]eå 2ÿOUg0n{,OUgfÜeå0Kÿ  
 f i r s t M o n d a y   =   ( s t a r t D a y   <   2 )   ?   2   -   s t a r t D a y :   9   -   s t a r t D a y ;  
 f o r   ( i   =   0 ;   i   <   H o l i d a y s 2 . l e n g t h ;   i   + =   2 )  
     i f   ( H o l i d a y s 2 [ i ]   = =   m o n t h )   h o l i d a y s [ ( H o l i d a y s 2 [ i + 1 ]   -   1 )   *   7   +   f i r s t M o n d a y ]   =   1 ;  
  
  
  
  
 d o c u m e n t . w r i t e ( " < t a b l e   c l a s s = ' c a l e n ' > \ n < t r   c l a s s = ' b g 1 ' > < t h   c o l s p a n = 7 > "   +   m o n t h   +   "g < / t h > < / t r > \ n " ) ;  
 d o c u m e n t . w r i t e ( " < t r   c l a s s = ' b g 2 ' > < t h   c l a s s = ' s u n ' > "   +   d a y s [ 0 ]   +   " < / t h > " ) ;  
 f o r   ( i   =   1 ;   i   <   6 ;   i + + )   d o c u m e n t . w r i t e ( " < t h > "   +   d a y s [ i ]   +   " < / t h > " ) ;  
 d o c u m e n t . w r i t e ( " < t h   c l a s s = ' s a t ' > "   +   d a y s [ 6 ]   +   " < / t h > < / t r > \ n " ) ;  
 v a r   c o l   =   0 ,   s 1 ; i f   ( s t a r t D a y   >   0 )   {  
     d o c u m e n t . w r i t e ( " < t r > " ) ;  
     f o r   (   ;   c o l   <   s t a r t D a y ;   c o l + + )   d o c u m e n t . w r i t e ( " < t d > & n b s p ; < / t d > " ) ;  
 }  
 f o r   ( i   =   1 ;   i   < =   d a t e M a x ;   i + + )   {  
     i f   ( c o l   = =   0 )   d o c u m e n t . w r i t e ( " < t r > " ) ;  
     i f   ( c l o s e d a y s [ i ]   = =   1   )   s 1   =   " < t d   c l a s s = ' c l o s e ' > " ;  
     e l s e   i f   ( d u t y d a y s [ i ]   = =   1   )   s 1   =   " < t d   c l a s s = ' d u t y ' > " ;  
     e l s e   i f   ( h o l i d a y s [ i ]   = =   1   | |   c o l   = =   0 )   s 1   =   " < t d   c l a s s = ' s u n ' > " ;  
     e l s e   i f   ( c o l   = =   6 )   s 1   =   " < t d   c l a s s = ' s a t ' > " ;  
     e l s e   s 1   =   " < t d > " ;  
     d o c u m e n t . w r i t e ( s 1   +   i   +   " < / t d > " ) ;  
     i f   ( c o l   = =   6 )   {   d o c u m e n t . w r i t e ( " < / t r > \ n " ) ;   c o l   =   0 ;   }   e l s e   c o l + + ;  
 }  
 i f   ( c o l   ! =   0 )   {  
     f o r   (   ;   c o l   <   7 ;   c o l + + )   d o c u m e n t . w r i t e ( " < t d > & n b s p ; < / t d > " ) ;  
     d o c u m e n t . w r i t e ( " < / t r > " ) ;  
 }  
 d o c u m e n t . w r i t e ( " < / t a b l e > " ) ;  
 }
