ÿþv a r   c a l c _ d o c ;  
  
 f u n c t i o n   g e t C a l c D o c ( )  
 {  
 	 r e t u r n   c a l c _ d o c ;  
 }  
  
 f u n c t i o n   s h o w C a l e n d a r H e r e ( s t r _ t a r g e t ,   s t r _ d a t e t i m e )  
 {  
 	 w i n d o w . o p e n e r . g e t C a l c D o c ( ) . g e t E l e m e n t B y I d ( ' c o n t ' ) . i n n e r H T M L   =   g e t D a t a (   s t r _ t a r g e t ,   s t r _ d a t e t i m e   ) ;  
 }  
  
 f u n c t i o n   g e t D a t a (   s t r _ t a r g e t ,   s t r _ d a t e t i m e   )  
 {  
 	 v a r   a r r _ m o n t h s   =   [ " S t y c z e D" ,   " L u t y " ,   " M a r z e c " ,   " K w i e c i e D" ,   " M a j " ,   " C z e r w i e c " ,  
 	 	 " L i p i e c " ,   " S i e r p i e D" ,   " W r z e s i e D" ,   " P a d z i e r n i k " ,   " L i s t o p a d " ,   " G r u d z i e D" ] ;  
 	 v a r   w e e k _ d a y s   =   [ " N d " ,   " P o n " ,   " W t " ,   " Zr " ,   " C z w " ,   " P t " ,   " S o b " ] ;  
 	 v a r   n _ w e e k s t a r t   =   1 ;   / /   d a y   w e e k   s t a r t s   f r o m   ( n o r m a l l y   0   o r   1 )  
  
 	 v a r   d t _ d a t e t i m e   =   ( s t r _ d a t e t i m e   = =   n u l l   | |   s t r _ d a t e t i m e   = = " "   ?     n e w   D a t e ( )   :   s t r 2 d t ( s t r _ d a t e t i m e ) ) ;  
 	 v a r   d t _ p r e v _ m o n t h   =   n e w   D a t e ( d t _ d a t e t i m e ) ;  
 	 d t _ p r e v _ m o n t h . s e t M o n t h ( d t _ d a t e t i m e . g e t M o n t h ( ) - 1 ) ;  
 	 v a r   d t _ n e x t _ m o n t h   =   n e w   D a t e ( d t _ d a t e t i m e ) ;  
 	 d t _ n e x t _ m o n t h . s e t M o n t h ( d t _ d a t e t i m e . g e t M o n t h ( ) + 1 ) ;  
 	 v a r   d t _ f i r s t d a y   =   n e w   D a t e ( d t _ d a t e t i m e ) ;  
 	 d t _ f i r s t d a y . s e t D a t e ( 1 ) ;  
 	 d t _ f i r s t d a y . s e t D a t e (   1   -   (   7   +   d t _ f i r s t d a y . g e t D a y ( )   -   n _ w e e k s t a r t   )   % 7   ) ;  
 	 v a r   d t _ l a s t d a y   =   n e w   D a t e ( d t _ n e x t _ m o n t h ) ;  
 	 d t _ l a s t d a y . s e t D a t e ( 0 ) ;  
 	  
 	 / /   h t m l   g e n e r a t i o n   ( f e e l   f r e e   t o   t u n e   i t   f o r   y o u r   p a r t i c u l a r   a p p l i c a t i o n )  
 	 / /   p r i n t   c a l e n d a r   h e a d e r  
 	 v a r   s t r _ b u f f e r   =   n e w   S t r i n g   (  
 	 	 " < t a b l e   c l a s s = \ " c l s O T a b l e \ "   c e l l s p a c i n g = \ " 0 \ "   b o r d e r = \ " 0 \ "   w i d t h = \ " 1 0 0 % \ " > \ n " +  
 	 	 " < t r > < t d   b g c o l o r = \ " # 4 6 8 2 B 4 \ " > \ n " +  
 	 	 " < t a b l e   c e l l s p a c i n g = \ " 1 \ "   c e l l p a d d i n g = \ " 3 \ "   b o r d e r = \ " 0 \ "   w i d t h = \ " 1 0 0 % \ " > \ n " +  
 	 	 " < t r > \ n 	 < t d   b g c o l o r = \ " # 4 6 8 2 B 4 \ " > < a   h r e f = \ " # \ "   o n C l i c k = \ " s h o w C a l e n d a r H e r e ( ' " +  
 	 	 s t r _ t a r g e t + " ' ,   ' " +   d t 2 d t s t r ( d t _ p r e v _ m o n t h ) + " ' ) ; r e t u r n   f a l s e ; \ " > " +  
 	 	 " < i m g   s r c = \ " " + b a s e H r + " h t m l / g f x / c a l e n d a r / p r e v . g i f \ "   w i d t h = \ " 1 6 \ "   h e i g h t = \ " 1 6 \ "   b o r d e r = \ " 0 \ " " +  
 	 	 "   a l t = \ " p r e v i o u s   m o n t h \ " > < / a > < / t d > \ n " +  
 	 	 " 	 < t d   b g c o l o r = \ " # 4 6 8 2 B 4 \ "   c o l s p a n = \ " 5 \ " > " +  
 	 	 " < f o n t   c o l o r = \ " w h i t e \ "   f a c e = \ " t a h o m a ,   v e r d a n a \ "   s i z e = \ " 2 \ " > "  
 	 	 + a r r _ m o n t h s [ d t _ d a t e t i m e . g e t M o n t h ( ) ] + "   " + d t _ d a t e t i m e . g e t F u l l Y e a r ( ) + " < / f o n t > < / t d > \ n " +  
 	 	 " 	 < t d   b g c o l o r = \ " # 4 6 8 2 B 4 \ "   a l i g n = \ " r i g h t \ " > < a   h r e f = \ " # \ "   o n C l i c k = \ " s h o w C a l e n d a r H e r e ( ' "  
 	 	 + s t r _ t a r g e t + " ' ,   ' " + d t 2 d t s t r ( d t _ n e x t _ m o n t h ) + " ' ) ; r e t u r n   f a l s e ; \ " > " +  
 	 	 " < i m g   s r c = \ " " + b a s e H r + " h t m l / g f x / c a l e n d a r / n e x t . g i f \ "   w i d t h = \ " 1 6 \ "   h e i g h t = \ " 1 6 \ "   b o r d e r = \ " 0 \ " " +  
 	 	 "   a l t = \ " n e x t   m o n t h \ " > < / a > < / t d > \ n < / t r > \ n "  
 	 ) ;  
  
 	 v a r   d t _ c u r r e n t _ d a y   =   n e w   D a t e ( d t _ f i r s t d a y ) ;  
 	 / /   p r i n t   w e e k d a y s   t i t l e s  
 	 s t r _ b u f f e r   + =   " < t r > \ n " ;  
 	 f o r   ( v a r   n   =   0 ;   n   <   7 ;   n + + )  
 	 	 s t r _ b u f f e r   + =   " 	 < t d   b g c o l o r = \ " # 8 7 C E F A \ " > " +  
 	 	 " < f o n t   c o l o r = \ " w h i t e \ "   f a c e = \ " t a h o m a ,   v e r d a n a \ "   s i z e = \ " 2 \ " > " +  
 	 	 w e e k _ d a y s [ ( n _ w e e k s t a r t + n ) % 7 ] + " < / f o n t > < / t d > \ n " ;  
 	 / /   p r i n t   c a l e n d a r   t a b l e  
 	 s t r _ b u f f e r   + =   " < / t r > \ n " ;  
 	 w h i l e   ( d t _ c u r r e n t _ d a y . g e t M o n t h ( )   = =   d t _ d a t e t i m e . g e t M o n t h ( )   | |  
 	 	 d t _ c u r r e n t _ d a y . g e t M o n t h ( )   = =   d t _ f i r s t d a y . g e t M o n t h ( ) )   {  
 	 	 / /   p r i n t   r o w   h e d e r  
 	 	 s t r _ b u f f e r   + =   " < t r > \ n " ;  
 	 	 f o r   ( v a r   n _ c u r r e n t _ w d a y = 0 ;   n _ c u r r e n t _ w d a y < 7 ;   n _ c u r r e n t _ w d a y + + )   {  
 	 	 	 	 i f   ( d t _ c u r r e n t _ d a y . g e t D a t e ( )   = =   d t _ d a t e t i m e . g e t D a t e ( )   & &  
 	 	 	 	 	 d t _ c u r r e n t _ d a y . g e t M o n t h ( )   = =   d t _ d a t e t i m e . g e t M o n t h ( ) )  
 	 	 	 	 	 / /   p r i n t   c u r r e n t   d a t e  
 	 	 	 	 	 s t r _ b u f f e r   + =   " 	 < t d   b g c o l o r = \ " # F F B 6 C 1 \ "   a l i g n = \ " r i g h t \ " > " ;  
 	 	 	 	 e l s e   i f   ( d t _ c u r r e n t _ d a y . g e t D a y ( )   = =   0   | |   d t _ c u r r e n t _ d a y . g e t D a y ( )   = =   6 )  
 	 	 	 	 	 / /   w e e k e n d   d a y s  
 	 	 	 	 	 s t r _ b u f f e r   + =   " 	 < t d   b g c o l o r = \ " # D B E A F 5 \ "   a l i g n = \ " r i g h t \ " > " ;  
 	 	 	 	 e l s e  
 	 	 	 	 	 / /   p r i n t   w o r k i n g   d a y s   o f   c u r r e n t   m o n t h  
 	 	 	 	 	 s t r _ b u f f e r   + =   " 	 < t d   b g c o l o r = \ " w h i t e \ "   a l i g n = \ " r i g h t \ " > " ;  
  
 	 	 	 	 i f   ( d t _ c u r r e n t _ d a y . g e t M o n t h ( )   = =   d t _ d a t e t i m e . g e t M o n t h ( ) )  
 	 	 	 	 	 / /   p r i n t   d a y s   o f   c u r r e n t   m o n t h  
 	 	 	 	 	 s t r _ b u f f e r   + =   " < a   h r e f = \ " j a v a s c r i p t : w i n d o w . o p e n e r . " + s t r _ t a r g e t +  
 	 	 	 	 	 " . v a l u e = ' " + d t 2 d t s t r ( d t _ c u r r e n t _ d a y ) + " ' ;   w i n d o w . c l o s e ( ) ; \ " > " +  
 	 	 	 	 	 " < f o n t   c o l o r = \ " b l a c k \ "   f a c e = \ " t a h o m a ,   v e r d a n a \ "   s i z e = \ " 2 \ " > " ;  
 	 	 	 	 e l s e    
 	 	 	 	 	 / /   p r i n t   d a y s   o f   o t h e r   m o n t h s  
 	 	 	 	 	 s t r _ b u f f e r   + =   " < a   h r e f = \ " j a v a s c r i p t : w i n d o w . o p e n e r . " + s t r _ t a r g e t +  
 	 	 	 	 	 " . v a l u e = ' " + d t 2 d t s t r ( d t _ c u r r e n t _ d a y ) + " ' ;   w i n d o w . c l o s e ( ) ; \ " > " +  
 	 	 	 	 	 " < f o n t   c o l o r = \ " g r a y \ "   f a c e = \ " t a h o m a ,   v e r d a n a \ "   s i z e = \ " 2 \ " > " ;  
 	 	 	 	 s t r _ b u f f e r   + =   d t _ c u r r e n t _ d a y . g e t D a t e ( ) + " < / f o n t > < / a > < / t d > \ n " ;  
 	 	 	 	 d t _ c u r r e n t _ d a y . s e t D a t e ( d t _ c u r r e n t _ d a y . g e t D a t e ( ) + 1 ) ;  
 	 	 }  
 	 	 / /   p r i n t   r o w   f o o t e r  
 	 	 s t r _ b u f f e r   + =   " < / t r > \ n " ;  
 	 }  
 	 / /   p r i n t   c a l e n d a r   f o o t e r  
 	 s t r _ b u f f e r   + =  
 	 	 " < / t a b l e > \ n "   +  
 	 	 " < / t r > \ n < / t d > \ n < / t a b l e > \ n " ;  
 	 	  
 	 r e t u r n   s t r _ b u f f e r ;  
 }  
  
 f u n c t i o n   s h o w _ c a l e n d a r _ s e c o n d ( s t r _ t a r g e t ,   s t r _ d a t e t i m e )  
 {  
 	 v a r   v W i n C a l   =   w i n d o w . o p e n ( n u l l ,   n u l l ,   " w i d t h = 2 0 0 , h e i g h t = 2 0 0 , s t a t u s = 0 , r e s i z a b l e = 0 , t o p = 2 0 0 , l e f t = 2 0 0 , t i t l e b a r = 0 , m e n u b a r = 0 , t o o l b a r = 0 , l o c a t i o n = 0 " ) ;  
 	 c a l c _ d o c   =   v W i n C a l . d o c u m e n t ;  
 	  
 	 v a r   s t r _ b u f f e r   =   " < h t m l > \ n < h e a d > \ n < t i t l e > K a l e n d a r z < / t i t l e > \ n < s c r i p t   l a n g u a g e = \ " J a v a S c r i p t \ "   s r c = \ " " + b a s e H r + " h t m l / j s / c a l e n d a r . j s \ " > < / s c r i p t > < / h e a d > \ n < b o d y   b g c o l o r = \ " W h i t e \ " > \ n < d i v   i d = ' c o n t ' > " ;  
 	 s t r _ b u f f e r   + =   g e t D a t a (   s t r _ t a r g e t ,   s t r _ d a t e t i m e ,   c a l c _ d o c   ) ;  
 	 s t r _ b u f f e r   + =     " < / d i v > < / b o d y > \ n < / h t m l > \ n " ;  
 	  
 	 c a l c _ d o c . w r i t e   ( s t r _ b u f f e r ) ;  
 	 c a l c _ d o c . c l o s e ( ) ;  
 }  
  
 f u n c t i o n   s h o w _ c a l e n d a r ( s t r _ t a r g e t ,   s t r _ d a t e t i m e )  
 {  
 	 v a r   v W i n C a l   =   w i n d o w . o p e n ( n u l l ,   n u l l ,   " w i d t h = 2 0 0 , h e i g h t = 2 0 0 , s t a t u s = 0 , r e s i z a b l e = 0 , t o p = 2 0 0 , l e f t = 2 0 0 , t i t l e b a r = 0 , m e n u b a r = 0 , t o o l b a r = 0 , l o c a t i o n = 0 " ) ;  
 	 v W i n C a l . o p e n e r   =   s e l f ;  
 	 v a r   c a l c _ d o c   =   v W i n C a l . d o c u m e n t ;  
 	 s e l f . c a l c _ d o c   =   v W i n C a l . d o c u m e n t ;  
 	  
 	 v a r   s t r _ b u f f e r   =   " " ;  
 	 s t r _ b u f f e r   + =     " < h t m l > \ n < h e a d > < s c r i p t > v a r   b a s e H r = ' " + b a s e H r + " ' < / s c r i p t > \ n < t i t l e > K a l e n d a r z < / t i t l e > \ n < s c r i p t   l a n g u a g e = \ " J a v a S c r i p t \ "   s r c = \ " " + b a s e H r + " h t m l / j s / c a l e n d a r . j s \ " > < / s c r i p t > < / h e a d > \ n < b o d y   b g c o l o r = \ " W h i t e \ " > \ n < d i v   i d = ' c o n t ' > " ;  
 	 s t r _ b u f f e r   + =   g e t D a t a (   s t r _ t a r g e t ,   s t r _ d a t e t i m e ,   c a l c _ d o c   ) ;  
 	 s t r _ b u f f e r   + =     " < / d i v > < / b o d y > \ n < / h t m l > \ n " ;  
 	  
 	 c a l c _ d o c . w r i t e   ( s t r _ b u f f e r ) ;  
 	 c a l c _ d o c . c l o s e ( ) ;  
 }  
 / /   d a t e t i m e   p a r s i n g   a n d   f o r m a t t i n g   r o u t i m e s .   m o d i f y   t h e m   i f   y o u   w i s h   o t h e r   d a t e t i m e   f o r m a t  
 f u n c t i o n   s t r 2 d t   ( s t r _ d a t e t i m e )   {  
 	 v a r   r e _ d a t e   =   / ^ ( \ d + ) \ - ( \ d + ) \ - ( \ d + ) $ / ;  
 	 i f   ( ! r e _ d a t e . e x e c ( s t r _ d a t e t i m e ) )  
 	 	 r e t u r n   a l e r t ( " N i e p r a w i d o w y   f o r m a t   d a t y :   " +   s t r _ d a t e t i m e ) ;  
 	 r e t u r n   ( n e w   D a t e   ( R e g E x p . $ 3 ,   R e g E x p . $ 2 - 1 ,   R e g E x p . $ 1 ) ) ;  
 }  
 f u n c t i o n   d t 2 d t s t r   ( d t _ d a t e t i m e )   {  
 	 r e t u r n   ( n e w   S t r i n g   (  
 	 	 	 d t _ d a t e t i m e . g e t D a t e ( ) + " - " + ( d t _ d a t e t i m e . g e t M o n t h ( ) + 1 ) + " - " + d t _ d a t e t i m e . g e t F u l l Y e a r ( ) ) ) ;  
 }  
  
 f u n c t i o n   n e x t _ d a y ( )  
 {  
 	 i f ( d o c u m e n t . f o r m . d a t a . v a l u e   ! =   ' ' )  
 	 {  
 	 	 v a r   n e x t _ d a y   =   s t r 2 d t ( d o c u m e n t . f o r m . d a t a . v a l u e ) ;  
 	 	 n e x t _ d a y . s e t D a t e ( n e x t _ d a y . g e t D a t e ( ) + 1 ) ;  
 	 	 d o c u m e n t . f o r m . d a t a . v a l u e   =   d t 2 d t s t r ( n e x t _ d a y ) ;  
 	 }  
 }  
  
 f u n c t i o n   p r e v _ d a y ( )  
 {  
 	 i f ( d o c u m e n t . f o r m . d a t a . v a l u e   ! =   ' ' )  
 	 {  
 	 	 v a r   n e x t _ d a y   =   s t r 2 d t ( d o c u m e n t . f o r m . d a t a . v a l u e ) ;  
 	 	 n e x t _ d a y . s e t D a t e ( n e x t _ d a y . g e t D a t e ( ) - 1 ) ;  
 	 	 d o c u m e n t . f o r m . d a t a . v a l u e   =   d t 2 d t s t r ( n e x t _ d a y ) ;  
 	 }  
 }  
  
 f u n c t i o n   n e x t _ d a y 2 ( )  
 {  
 	 i f ( d o c u m e n t . f o r m . d a t a 2 . v a l u e   ! =   ' ' )  
 	 {  
 	 	 v a r   n e x t _ d a y   =   s t r 2 d t ( d o c u m e n t . f o r m . d a t a 2 . v a l u e ) ;  
 	 	 n e x t _ d a y . s e t D a t e ( n e x t _ d a y . g e t D a t e ( ) + 1 ) ;  
 	 	 d o c u m e n t . f o r m . d a t a 2 . v a l u e   =   d t 2 d t s t r ( n e x t _ d a y ) ;  
 	 }  
 }  
  
 f u n c t i o n   p r e v _ d a y 2 ( )  
 {  
 	 i f ( d o c u m e n t . f o r m . d a t a 2 . v a l u e   ! =   ' ' )  
 	 {  
 	 	 v a r   n e x t _ d a y   =   s t r 2 d t ( d o c u m e n t . f o r m . d a t a 2 . v a l u e ) ;  
 	 	 n e x t _ d a y . s e t D a t e ( n e x t _ d a y . g e t D a t e ( ) - 1 ) ;  
 	 	 d o c u m e n t . f o r m . d a t a 2 . v a l u e   =   d t 2 d t s t r ( n e x t _ d a y ) ;  
 	 }  
 }  
  
 f u n c t i o n   s t r 2 t i m e   ( s t r _ d a t e t i m e )   {  
 	 v a r   r e _ d a t e   =   / ^ ( \ d + ) \ - ( \ d + ) \ - ( \ d + ) - ( \ d + ) $ / ;  
 	 i f   ( ! r e _ d a t e . e x e c ( s t r _ d a t e t i m e ) )  
 	 	 r e t u r n ;  
 	 	  
 	 r e t u r n   ( n e w   D a t e   ( R e g E x p . $ 4 ,   R e g E x p . $ 3 - 1 ,   R e g E x p . $ 2 ,   R e g E x p . $ 1 ) ) ;  
 }  
  
  
 f u n c t i o n   p r e v _ h o u r ( )  
 {  
 	 v a r   h o u r   =   p a r s e I n t ( d o c u m e n t . f o r m . h o u r . v a l u e )  
 	  
 	 i f ( d o c u m e n t . f o r m . h o u r . v a l u e   ! =   ' '   & &   h o u r   >   0 )  
 	 {  
 	 	 v a r   p r e v _ h o u r   =   h o u r   -   1 ;  
 	 	 d o c u m e n t . f o r m . h o u r . v a l u e   =   p r e v _ h o u r ;  
 	 }  
 	  
 	 i f ( d o c u m e n t . f o r m . h o u r . v a l u e   ! =   ' '   & &   h o u r   = =   0 )  
 	 {  
 	 	 d o c u m e n t . f o r m . h o u r . v a l u e   =   2 3 ;  
 	 }  
 }  
  
 f u n c t i o n   n e x t _ h o u r ( )  
 {  
 	 v a r   h o u r   =   p a r s e I n t ( d o c u m e n t . f o r m . h o u r . v a l u e )  
 	  
 	 i f ( d o c u m e n t . f o r m . h o u r . v a l u e   ! =   ' '   & &   h o u r   <   2 3 )  
 	 {  
 	 	 v a r   n e x t _ h o u r   =   h o u r   +   1 ;  
 	 	 d o c u m e n t . f o r m . h o u r . v a l u e   =   n e x t _ h o u r ;  
 	 }  
 	  
 	 i f ( d o c u m e n t . f o r m . h o u r . v a l u e   ! =   ' '   & &   h o u r   = =   2 3 )  
 	 {  
 	 	 d o c u m e n t . f o r m . h o u r . v a l u e   =   ' z 0 0 ' ;  
 	 }  
 }  
  
 f u n c t i o n   p r e v _ h o u r 2 ( )  
 {  
 	 v a r   h o u r   =   p a r s e I n t ( d o c u m e n t . f o r m . h o u r 2 . v a l u e )  
 	  
 	 i f ( d o c u m e n t . f o r m . h o u r 2 . v a l u e   ! =   ' '   & &   h o u r   >   0 )  
 	 {  
 	 	 v a r   p r e v _ h o u r   =   h o u r   -   1 ;  
 	 	 d o c u m e n t . f o r m . h o u r 2 . v a l u e   =   p r e v _ h o u r ;  
 	 }  
 	  
 	 i f ( d o c u m e n t . f o r m . h o u r 2 . v a l u e   ! =   ' '   & &   h o u r   = =   0 )  
 	 {  
 	 	 d o c u m e n t . f o r m . h o u r 2 . v a l u e   =   2 3 ;  
 	 }  
 }  
  
 f u n c t i o n   n e x t _ h o u r 2 ( )  
 {  
 	 v a r   h o u r   =   p a r s e I n t ( d o c u m e n t . f o r m . h o u r 2 . v a l u e )  
 	  
 	 i f ( d o c u m e n t . f o r m . h o u r 2 . v a l u e   ! =   ' '   & &   h o u r   <   2 3 )  
 	 {  
 	 	 v a r   n e x t _ h o u r   =   h o u r   +   1 ;  
 	 	 d o c u m e n t . f o r m . h o u r 2 . v a l u e   =   n e x t _ h o u r ;  
 	 }  
 	  
 	 i f ( d o c u m e n t . f o r m . h o u r 2 . v a l u e   ! =   ' '   & &   h o u r   = =   2 3 )  
 	 {  
 	 	 d o c u m e n t . f o r m . h o u r 2 . v a l u e   =   ' z 0 0 ' ;  
 	 }  
 } 
