Tedd / Peter

Alternatively why not use the Scorpion International Date Time Utilities
available from both the Scorpion Research FB Developer Corner
(http://www.ScorpionResearch/futurebasic/) as well as the FB Web Ring.

I think you will find it is Internationally compliant and Y2K compliant to
let you calculate between dates.

Deep



>Tedd
>
>The code has a Y2k problem.
>Maybe use _AbbrevDate as described on p86 of the FBII Ref Manual, and get
>the right 4 digits of the string ie 1998 instead of 98.
>
>>    a$ = DATE$
>>    year$ = RIGHT$(a$,2)     <----*** ONLY 2 DIGITS RETURNED
>>    month$ = LEFT$(a$,2)
>>    year = VAL(year$)
>>    month = VAL(month$)
>>
>>    LONG IF year > 93 AND month > 6
>>      FN doError (Msg$)   'display error message
>>
>>      END                 'let's not work anymore...
>>    END IF
>
>
>Peter  mailto:peter@...  http://www.isoma.com
>
>
>--
>To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>
>