Author: Lou Adler

Did you know that you can easily compare dates by using the "EncodeDate()"?

Answer:

Here are some examples: 

1   uses
2     SysUtils;
3   
4   {...}
5   
6   if (Date > EncodeDate(1997, 1, 1)) then
7   begin
8     { display "this program has expired" }
9   end;
10  
11  {...}
12  
13  if (EncodeDate(1997, 1, 1) > EncodeDate(1996, 1, 1)) then
14  begin
15    {...}
16  end;