Vis et flag på bestemt dato

Prøv med:
if FormatDateTime('dd-mm', Date) = FormatDateTime('dd-mm', StrToDate(Table1Fdato.text)) then
      Flag.Visible :=true

  else
      Flag.Visible :=false ;
end;

Det først jeg bemærker er at det ser ud til at du har datoen til at stå i din database som et streng felt. Jeg villle nok i stedet vælge en TDataTime og kun bruge en streng når jeg vil præsentere datoen for en bruger.

Når du har en dato (TDateTime) og du vil splitte denne op i Dag, Månde og År (for at kunne sammenligne 2 mdr og 2 årstal) så bruger du blot (såvidt jeg lige husker) DecodeDate(Dato, Dag, Md, Aar);

Virker ikke, men kan kompileres.

Det virkede fint ved mig.......

// Jonat.

Til Pellelil
Så skal jeg jo til at lave noget nyt!
Kan det ikkelade sig gøre med det jeg har?

Til jonat
Det har jeg også fundet ud af det gør hos mig!
Undskyld mange gange!!
Vær sød at lægge et nyt svar, så du kan få point

Det er helt ok :-D

// Jonat.

Du skriver jo selv "DateToStr(Date)" hvilket tyder på at du har din dato som en TDateTime og i såfald kan du godt bruge "DecodeDate" (prøv evt. at kigge i Delphi's hjælp til DecodeDate").

Problemet med at bruge strenge er at du for begge de 2 datoer (som du vil sammenligne) er nødt til at vide hvordan de er opbygget og så skal du fra disse "plukke" de tegn du ønsker at sammenligne. Evt. noget a'la:
if (Copy(DatoStr1, 1, 2) + Copy(DatoStr1, 4,2)) = (Copy(DatoStr2, 1, 2) + Copy(DatoStr2, 4,2))

Hvis du i stedet bruger TDateTime er du fri for at slås med forskellige måder at formatere en dato på (kunne de tænkes at engelsk-sprogede bruger skal bruge dit program så "falder det til jorden" hvis du forventer at datoen er formatret på en bestemt måde)

Tak :)

Også en tak til Pellelil
Jeg anvender svaret fra jonat

Helt i orden !!!