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