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