Button nach einer bestimmten Zeit deaktivieren

[null33]

Oder eventuell so?

Delphi-Quellcode:

begin
  Button.Enabled := (CompareDate(Date, StrToDate('10.02.2016')) = -1);
end;

[himitsu]

Zitat:

Zitat von null33 (Beitrag 1329961)

Oder eventuell so?

Englisches, russisches oder japanisches Windows?
StrToDate -> FormatSettings
oder EncodeDate

Und jeder weiß natürlich was -1 heißt.
CompareDate -> LessThanValue :stupid:

[hoika]

Hallo Darlo,
deshalb ja auch der direkte TDateTime-Vergleich.

Ich wollte den Thread-Ersteller auch zeigen, dass er das Datumsformat selber wählen kann
und nicht auf die Einstellungen von Windows setzen muss.


Heiko

[null33]

Zitat:

Zitat von himitsu (Beitrag 1329964)

Englisches, russisches oder japanisches Windows?
StrToDate -> FormatSettings
oder EncodeDate

Und jeder weiß natürlich was -1 heißt.
CompareDate -> LessThanValue :stupid:

Oops, da guckt man vorher noch nach und dann so was :-D

Dann besser so? :-D

Delphi-Quellcode:

var
  MaxDate: TDateTime;
begin
  MaxDate := 42410;
  
  Button.Enabled := (CompareDate(Date, MaxDate) = 1);
end;

[DeddyH]

Wie wäre es so?

Delphi-Quellcode:

var
  Expiration: TDateTime;
begin
  Expiration := EncodeDate(2016, 5, 1); //Letztes gültiges Datum 01.05.2016
  Button.Enabled := CompareDate(date, Expiration) <> GreaterThanValue;
end;

Du brauchst dafür DateUtils und System.Types.

[p80286]

Jetzt beinahe offtopic, man sollte wenn es nicht zu vermeiden ist, ein Datum immer im Format YYYY-MM-DD angeben. dann ist die Gefahr es zu missinterpretieren relativ gering, und ,kleiner Vorteil für die unverbesserlichen, man kann danach sortieren und vergleichen.

Gruß
K-H