Geburtstag Erinnerer tage eingeben

[Marcoo]

Hallo also das programm an dem ich grad arbeite ist ein Geburtstags errinerer und da muss man ja logischer weise den tag des geburtstags eintragen ich hab das nur halb hingekriegt also es geht aber nur 1 mal also kann ich den 28.11.2010 eintragen aber am 28.11.2011 wird er mich nicht errinert

Delphi-Quellcode:

var
  jahr, monat, tag: Word;
begin
  DecodeDate(Date, jahr, monat, tag);
  DatePicker.Date := Date;
  DatePicker.Calendar.MinDate := Date;
  DatePicker.Calendar.MaxDate := Date + 365;

und die tage bis zu dem im datepicker angegeben tag berechnet er mit

Delphi-Quellcode:

AdvSmoothListBox1.Items[i].Notes := inttostr
(DaysBetween(strtodate(AdvSmoothListBox1.Items[i].Info), now))
+ ' Tage noch';

[Marcoo]

Ok ist erledigt hab ne Lösung gefunden nicht die beste aber besser als gar nichts und zwar mach ich dann einfach
in dem moment wo der geburtstag ist flgendes

Delphi-Quellcode:

advsmoothlistbox1.items[i].Info:=datetostr(Date + 365);

[DeddyH]

Du musst beim Geburtsdatum das Jahr außer Acht lassen. Man könnte also beispielsweise so vorgehen:
- aktuelles Datum dekodieren
- Geburtsdatum dekodieren
- ist der aktuelle Monat größer als der Geburtsmonat, ist der nächste Geburtstag im Folgejahr
- ist der aktuelle Monat gleich dem Geburtsmonat, Tage vergleichen
- ist der aktuelle Monat kleiner als der Geburtsmonat, ist der nächste Geburtstag in diesem Jahr
Du hast nun also das Jahr des nächsten Geburtstages ermittelt. Nun kannst Du den nächsten Geburtstag wieder kodieren und mit DaysBetween die Anzahl der Tage ermitteln.

[Matze]

Zitat:

Zitat von Marcoo (Beitrag 1064607)

Ok ist erledigt hab ne Lösung gefunden nicht die beste aber besser als gar nichts und zwar mach ich dann einfach
in dem moment wo der geburtstag ist flgendes

Delphi-Quellcode:

advsmoothlistbox1.items[i].Info:=datetostr(Date + 365);

Nur so zur Info: ca. alle 4 Jahre ist ein Schaltjahr, das 366 Tage hat.

[Hansa]

Deshalb gibt es auch die Funktion "IsLeapYear". 8-)

[Wolfgang Mix]

Die Unit DateUtils von Delphi oder die Unit DateUtils2 aus der CodeLib könnte weiterhelfen :-)

[Luckie]

Zitat:

Zitat von Matze (Beitrag 1064609)

Nur so zur Info: ca. alle 4 Jahre ist ein Schaltjahr, das 366 Tage hat.

Und Satzzeichen darf man auch in nicht Schaltjahren benutzen. ;)

[Hansa]

Zitat:

Zitat von Luckie (Beitrag 1064618)

Und Satzzeichen darf man auch in nicht Schaltjahren benutzen. ;)

Die Gross/Kleinschreibung ist auch wichtig. Bei solchen Fällen empfehle ich immer Linux, um das zu lernen. 8-) :mrgreen: