Heutige mit unabhängigem Datum vergleichen

[mr47]

Zitat von Barret:

Ich hab das jetzt mal mit Delete probiert. Problem is nur, das der Compiler mir immer sagt: "Incompatible Typen String und procedure"

Code:

Code:

  Jahr :=  DateToStr(Now);
  if (DateToStr(Now) = '05.06' + Delete(Jahr, 1, 6)) then
    begin
    .
    .
    .

du kansst einen String auch mit Ziel:=copy(quelle,<anfang>,<ende>);

quelle und ziel sind beides strings. Ziel und quelle kann auch der gleiche String sein. und anfang und ende sind die nummer der Zeichen (also 1. Zeichen oder 7. Zeichen...)

greez