dato skjekk

[bundli]

Jeg har gjort skrevet følgende men det er feil og jeg finner ikke ut hvorfor?

Programmet skal kun være gyldig frem til 01.01.2004.

 

var

SD: integer;

dd: string[10];

TD: string[10];

 

begin

dd := DateToStr(date);

TD := '01.01.2004';

SD := compareStr(TD, dd);

If SD >= 0 then

begin

App.close;

end;

end;

[tasle]

Det er fordi du foretar en alfabetisk sammenligning av to strenger. Sammenlign heller to datotyper (TDateTime typer).

[dalai]

var
dt: TDateTime;

dt:=EncodeDate(2004,1,1);

if dt<Date then
 showmessage('fy. fy. du får ikke bruke programmet lenger');

 

tror kanskje du må ha DateUtils i uses blokken din.