ÿþf u n c t i o n   g e t C a l e n d a r D a t e ( m D a y s )  
 {  
       v a r   m o n t h s   =   n e w   A r r a y ( 1 2 ) ;  
       m o n t h s [ 0 ]     =   " J a n u a r y " ;  
       m o n t h s [ 1 ]     =   " F e b r u a r y " ;  
       m o n t h s [ 2 ]     =   " M a r c h " ;  
       m o n t h s [ 3 ]     =   " A p r i l " ;  
       m o n t h s [ 4 ]     =   " M a y " ;  
       m o n t h s [ 5 ]     =   " J u n e " ;  
       m o n t h s [ 6 ]     =   " J u l y " ;  
       m o n t h s [ 7 ]     =   " A u g u s t " ;  
       m o n t h s [ 8 ]     =   " S e p t e m b e r " ;  
       m o n t h s [ 9 ]     =   " O c t o b e r " ;  
       m o n t h s [ 1 0 ]   =   " N o v e m b e r " ;  
       m o n t h s [ 1 1 ]   =   " D e c e m b e r " ;  
       v a r   n o w                   =   n e w   D a t e ( ) ;  
       v a r   m o n t h n u m b e r   =   n o w . g e t M o n t h ( ) ;  
       v a r   m o n t h n a m e       =   m o n t h s [ m o n t h n u m b e r ] ;  
       v a r   m o n t h d a y         =   n o w . g e t D a t e ( ) ;  
       v a r   y e a r                 =   n o w . g e t Y e a r ( ) ;  
       i f ( y e a r   <   2 0 0 0 )   {   y e a r   =   y e a r   +   1 9 0 0 ;   }  
       i f   ( m o n t h d a y   < =   m D a y s )  
 	 m o n t h n a m e =   m o n t h s [ m o n t h n u m b e r - 1 ] ;  
       e l s e  
 	 m o n t h d a y = m o n t h d a y - m D a y s ;  
       v a r   d a t e S t r i n g   =   m o n t h n a m e   +  
                                         '   '   +  
                                         m o n t h d a y   +  
                                         ' ,   '   +  
                                         y e a r ;  
       r e t u r n   d a t e S t r i n g ;  
 }   / /   f u n c t i o n   g e t C a l e n d a r D a t e ( )  
 f u n c t i o n   g e t D a t e n T i m e ( m D a y s )  
 {  
       v a r   m o n t h s   =   n e w   A r r a y ( 1 2 ) ;  
       m o n t h s [ 0 ]     =   " J a n u a r y " ;  
       m o n t h s [ 1 ]     =   " F e b r u a r y " ;  
       m o n t h s [ 2 ]     =   " M a r c h " ;  
       m o n t h s [ 3 ]     =   " A p r i l " ;  
       m o n t h s [ 4 ]     =   " M a y " ;  
       m o n t h s [ 5 ]     =   " J u n e " ;  
       m o n t h s [ 6 ]     =   " J u l y " ;  
       m o n t h s [ 7 ]     =   " A u g u s t " ;  
       m o n t h s [ 8 ]     =   " S e p t e m b e r " ;  
       m o n t h s [ 9 ]     =   " O c t o b e r " ;  
       m o n t h s [ 1 0 ]   =   " N o v e m b e r " ;  
       m o n t h s [ 1 1 ]   =   " D e c e m b e r " ;  
       v a r   n o w                   =   n e w   D a t e ( ) ;  
       v a r   m o n t h n u m b e r   =   n o w . g e t M o n t h ( ) ;  
       v a r   m o n t h n a m e       =   m o n t h s [ m o n t h n u m b e r ] ;  
       v a r   m o n t h d a y         =   n o w . g e t 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   w k d a y s 	 = n o w . g e t D a y ( ) ;  
       v a r   a r y w k d a y s = n e w   A r r a y ( ' S u n d a y ' , ' M o n d a y ' , ' T u e s d a y ' , ' W e d n e s d a y ' , ' T h u r s d a y ' , ' F r i d a y ' , ' S a t u r d a y ' ) ;  
       v a r   s t r w k d a y s = a r y w k d a y s [ w k d a y s ] ;  
       i f ( y e a r   <   2 0 0 0 )   {   y e a r   =   y e a r   +   1 9 0 0 ;   }  
       i f   ( m o n t h d a y   < =   m D a y s )  
 	 m o n t h n a m e =   m o n t h s [ m o n t h n u m b e r - 1 ] ;  
       e l s e  
 	 m o n t h d a y = m o n t h d a y - m D a y s ;  
       v a r   d a t e S t r i n g   =   s t r w k d a y s   +   ' ,   '   +   m o n t h n a m e   +  
                                         '   '   +  
                                         m o n t h d a y   +  
                                         ' ,   '   +  
                                         y e a r ;  
 	 v a r   h o u r       =   n o w . g e t H o u r s ( ) ;  
       v a r   m i n u t e   =   n o w . g e t M i n u t e s ( ) ;  
       v a r   s e c o n d   =   n o w . g e t S e c o n d s ( ) ;  
       v a r   a p   =   " A M " ;  
       i f   ( h o u r       >   1 1 )   {   a p   =   " P M " ;                           }  
       i f   ( h o u r       >   1 2 )   {   h o u r   =   h o u r   -   1 2 ;             }  
       i f   ( h o u r       = =   0 )   {   h o u r   =   1 2 ;                           }  
       i f   ( h o u r       <   1 0 )   {   h o u r       =   " 0 "   +   h o u r ;       }  
       i f   ( m i n u t e   <   1 0 )   {   m i n u t e   =   " 0 "   +   m i n u t e ;   }  
       i f   ( s e c o n d   <   1 0 )   {   s e c o n d   =   " 0 "   +   s e c o n d ;   }  
       v a r   t i m e S t r i n g   =   h o u r   +  
                                         ' : '   +  
                                         m i n u t e   +  
                                         ' : '   +  
                                         s e c o n d   +  
                                         "   "   +  
                                         a p ;  
  
       r e t u r n   d a t e S t r i n g   +   '   '   +   t i m e S t r i n g ;  
 }   / /   f u n c t i o n   g e t C a l e n d a r D  
 
