Name nach Datum finden

[egon.kaschuba]

:wall:


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:

Zitat von Dani

von welchem Typ sind denn VJahr1 und VJahr2?

Sorry,
alles Alphanummerisch ( String )

Vielen Dank

[egon.kaschuba]

Zitat:

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:

Zitat von mkinzler

Zitat:

alles Alphanummerisch ( String )

Auch in der Datenbank?

Ja

[mkinzler]

Warum?

[egon.kaschuba]

Zitat:

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:

SQL-Code:

Select * from <Tabelle> where EXTRACT( MONTH from <datum>) = :monat and EXTRACT( DAY from <datum> = :tag;

[egon.kaschuba]

Zitat:

Zitat von mkinzler

Auf Datumsfelder kann man SQL-Funktionen ansetzen:

SQL-Code:

Select * from <Tabelle> where EXTRACT( MONTH from <datum>) = :monat and EXTRACT( DAY from <datum> = :tag;

Kann mich erst wieder in einer Stunde melden.
Hund und Katze müssen Gassi.

Probiere danach aus.Wollte eigendlich SQL vermeiden.Siht aber gut aus.
Melde mich !!!!

Vielen Dank

[egon.kaschuba]

:lol:


An Mkinzler

Hi,

manchmal hilft ein Hammerschlag auf den Kopf,damit einem die Augen geöffnet werden.
Alles OK.



Vielen Dank und ein schönes Wochenende.