• Last Home Next
|
Easy way to compare
dates
Did you know
that you can easily compare dates by using the "EncodeDate()"? Here are some examples:
uses
SysUtils;
{...}
if(Date > EncodeDate( 1997, 1, 1 ))then
begin
{ display "this program has expired" }
end;
{...}
if( EncodeDate( 1997, 1, 1 )
> EncodeDate( 1996, 1, 1 ) ) then
begin
{...}
end;
|
Listing #1
: Delphi code. Right click datecomp.pas
to download. | |
|
|
|