[futurebasic] Re: Need help

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : April 1998 : Group Archive : Group : All Groups

From: tedd <tedd@...>
Date: Wed, 29 Apr 1998 18:39:35 -0400
>Hi everybody,
>
>I don't know how code my application to expire on certain time period.
>Does any of you develop something like that and want to share the code me?
>I will appreciate it.


Aaron:

You put the expiration date into your program. If the current date is
beyond the expiration date, then do whatever you want. The code follows:

    'the following code is designed to provide a limit to the time that
    'a person can use this software. It works by checking the current
    'date and comparing it to an internal date of 06/01/94
    'if the current date is over that time period, then notes an error and
ends...

    a$ = DATE$
    year$ = RIGHT$(a$,2)
    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


Hope this helps.

tedd

___________________________________________________________________
<mailto:tedd@...>	               http://sperling.com/