!————————————-!
! Procedure: Date-Validation          !
! Descr:     Validate $entered_date.  !
!————————————-!
Begin-Procedure Date-Validation
#debug show ‘Entering Date-Validation’

Let $Date_Validation = ‘N’
!Show ‘$entered_date: ‘ $entered_date
Let #1st_Slash_position = instr($entered_date, ‘/’, 1)
!Show ‘#1st_Slash_position: ‘ #1st_Slash_position
Let #2nd_Slash_position = instr($entered_date, ‘/’, #1st_Slash_position + 1)
!Show ‘#2nd_Slash_position: ‘ #2nd_Slash_position

Technorati Tags: