Mega Code Archive

 

Categories / Delphi / Examples

 

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;