Categories
Keywords
Downloads
Easy way to compare dates
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;
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. Download datecomp (0.27 KB).
To share this: BlinkBits | BlinkList | Blogmarks | Co.mments | Connotea | Del.icio.us | Digg | Facebook | FrankIt | Furl | Ma.gnolia | Newsvine | Reddit | Yahoo
Applicable Keywords : Delphi, Delphi 2.x, Delphi 3.x, Functions, Source Code