You're right...The case select portion that Jens added was a little off. The usage of the LEFT function was wrong.

Try Replacing the following...

Code:
select

  case $date='TODAY'

    ; valid format

  case len($date)<>10

    exit 87

  case left($date,3)='\'

    ; valid format

  case left($date,5)='\'

    ; reformat date

    $date=split($date,'\')

    $date=$date[1]+'\'+$date[2]+'\'+$date[0]

  case 1

    exit 87

  endselect


With this...

Code:
select 

  case $date='TODAY' 

    ; valid format 

  case len($date)<>10 

    exit 87 

  case right(left($date,3),1)='/'

    ; valid format 

  case right(left($date,5),1)='/'

    ; reformat date 

    $date=split($date,'/')

    $date=$date[1]+'/'+$date[2]+'/'+$date[0] 

  case 1 

    exit 87 

endselect