ÿþv a r   b = n e w   D a t e ( ) ;  
 v a r   m o n a t = 1 + b . g e t M o n t h ( ) ;  
 v a r   j a h r = b . g e t F u l l Y e a r ( ) ;  
 v a r   t a g =   b . g e t D a t e ( ) ;  
 v a r   w o c h e =   " " ;  
  
 f u n c t i o n   k a l e n d e r w o c h e ( j a h r , m o n a t , t a g )   {  
     v a r   d a t u m = n e w   D a t e ( j a h r , m o n a t - 1 , t a g ) ;   / /   A n m .   1  
     v a r   j h = j a h r + 1 ;   / /   A n m .   2  
     v a r   k a l w o = k a l d i f f ( d a t u m , j h ) ;  
     w h i l e ( k a l w o < 1 )   {   j h - - ;   k a l w o = k a l d i f f ( d a t u m , j h ) ;   }  
     w o c h e   =   k a l w o ;  
     r e t u r n   k a l w o ;  
 }  
  
  
 f u n c t i o n   k a l d i f f ( d a t u m , j a h r )   {  
     v a r   d 4 j = n e w   D a t e ( j a h r , 0 , 4 ) ;  
     v a r   w t 4 j = ( d 4 j . g e t D a y ( ) + 6 ) % 7 ;   / /   A n m .   3  
     v a r   m 1 w j T = M a t h . f l o o r ( 0 . 0 1 + d 4 j . g e t T i m e ( ) / 8 6 4 e 5 - w t 4 j ) ;   / /   A n m .   4  
     v a r   d a t u m T = M a t h . f l o o r ( 0 . 0 1 + d a t u m . g e t T i m e ( ) / 8 6 4 e 5 ) ;   / /   A n m .   5  
     r e t u r n   M a t h . f l o o r ( 1 + ( d a t u m T - m 1 w j T ) / 7 ) ;   / /   A n m .   6  
 }  
  
 k a l e n d e r w o c h e ( j a h r , m o n a t , t a g ) ; 
