subroutine DateToNumber (string: DateIn, integer: DateNumber) is

 

integer Day

        Month

        Year

        FirstNum

        SecondNum

 

string  DayCheck

        MonthString

        DayString

 

    extract from DateIn

        take number Day

        skip "/" 

        take number Month

        skip "/" 

        take number Year

 

    if (Month < 10) then

        copy "0" Month to MonthString

    else

        copy Month to MonthString

    end if

 

    if (Day < 10) then

        copy "0" Day to DayString

    else

        copy Day to DayString

    end if

 

    copy Year MonthString DayString to DateNumber