Name nach Datum finden

[egon.kaschuba]

Hallo,
arbeite gerade an einem Projekt und komm da nicht ganz so weiter.
Also : Ich möchte das zwei gleiche Datumswerte überprüft werden
und dann Angezeigt werden.So ne art Geburtstags Kalender.
Soll so aussehen : Geboren am 10.10.1944 nun soll er am 10.10.2007 sich bemerkbar machen. Ha ha "Der Rechner natürlich."

Mit dem Code geht´s leider nicht. Was mache ich falsch.

Delphi-Quellcode:

 with table1 do
        begin
    table1.DisableControls;
    table1.First;
    while not table1.EOF do
    begin
    if VJahr1 = VJahr2 then messagebeep(10000);
     table1.Next ;
       end;
      end;
        Table1.First;
    table1.EnableControls;

Kann mir jemand den helfen ???

Gruß Egon

PS: Habe öffter gelesen das mit den ewigen GIG´s habe eine lösung
wie man Animierte GIF´s in Delphi einbinden kann.

[edit=SirThornberry]Delphi-Tags korrigiert - Mfg, SirThornberry[/edit]

[mkinzler]

Welche Datenbank?
Es gibt Funktionen um Monats- und Tageswerte aus Datem (Mehrzahl von Datum) zu extrahieren

[Dani]

von welchem Typ sind denn VJahr1 und VJahr2?

[egon.kaschuba]

Zitat von Dani:

von welchem Typ sind denn VJahr1 und VJahr2?

Sorry,
alles Alphanummerisch ( String )

Vielen Dank

[egon.kaschuba]

Zitat von mkinzler:

Welche Datenbank?
Es gibt Funktionen um Monats- und Tageswerte aus Datem (Mehrzahl von Datum) zu extrahieren

Das ist eine Paradox 5 für Window

Vielen Dank

[mkinzler]

Zitat:

alles Alphanummerisch ( String )

Auch in der Datenbank?

[egon.kaschuba]

Zitat von mkinzler:

Zitat:

alles Alphanummerisch ( String )

Auch in der Datenbank?

Ja

[mkinzler]

Warum?

[egon.kaschuba]

Zitat von mkinzler:

Warum?

Habe die Datenbank zwischenzeitlich in einem (D)atumsfeld geändert,aber auch da kein Erfolg.

[mkinzler]

Auf Datumsfelder kann man SQL-Funktionen ansetzen:
Select * from <Tabelle> where EXTRACT( MONTH from <datum>) = :monat and EXTRACT( DAY from <datum> = :tag;