Jahrestage berechnen

[Luckner]

Hallo,

möchte in meiner Anwendung für unser Verein eine Übersicht über Jahrestage (Geburtstage, Zugehörigkeit usw.) erstellen. Die gesamten Daten sind schon in einer Tabelle vorhanden. Den Mitgliedern soll gratulliert werden zum halben und vollem Jahrzehnt also 20. Geburtstag, 25.-ter, 30.-ter usw. Jetzt fehlt mir der Ansatz für einen Algorithmus. Wie bekommt man raus, anhand des Geburtsdatums, wie alt der Mensch ist. Gibt es in Delphi schon fertige Proceduren dafür?

Danke, Luckner

[juergen]

Hallo,

für solche Berechnungen wandle ich das Datum gern um in das Format JJJJMMTT. Dann kannst du "ganz normal rechnen", z.B. aktuelles Jahr - Geburtsjahr = Alter.
Für deine Anforderungen könnte die Mod Funktion hilfreich sein.

[Perlsau]

Schau dir einfach mal die folgenden Funktionen an:

System.DateUtils.YearsBetween
System.DateUtils.DaysBetween
System.DateUtils.HoursBetween
System.DateUtils.MinutesBetween
System.DateUtils.SecondsBetween

[dataspider]

Hi,

ich habe dafür eine SP in der Firebird DB:

Code:

create or alter procedure get_age (
    geb_datum date$,
    datum date$ = null)
returns (
    result smallint$)
as
begin
  result = null;
  if (:geb_datum is not null) then
  begin
    if (:datum is null) then
      datum = current_date;
    result = extract(year from :datum) - extract(year from :geb_datum);
    -- wenn Tag erst noch kommt, dann minus 1
    if (extract(month from :geb_datum) >= extract(month from :datum)) then
    begin
      if (extract(month from :geb_datum) > extract(month from :datum)) then
        result = :result - 1;
      else
        if (extract(day from :geb_datum) > extract(day from :datum)) then
          result = :result - 1;
    end
  end 
  suspend;
end

Wobei date$ und smallint$ Domains sind.

Dann kannst du mit:
select result from get_age(geb_datum) das Alter ermitteln.

Frank

[mkinzler]

Oder man nimmt die entsprechende Funktion von FireBird

DateDiff()

[dataspider]

Zitat von mkinzler:

Oder man nimmt die entsprechende Funktion von FireBird

DateDiff()

Wie machst du das?
Ich habe es damit nämlich nicht hinbekommen!

Frank

[samso]

Es gab da mal einen Beitrag von Wolfgang Mix der evntuell hilfreich sein könnte

http://www.delphipraxis.net/141399-d...unktionen.html

[Wolfgang Mix]

... und es gibt ein Tutorial

http://www.delphipraxis.net/146593-a...errechnen.html

den Rest müßte eine Abfrage lösen, etwa
if alter mod 5 = 0 then...

[Luckner]

Danke für die Hinweise. Werde mich damit auseinander setzen. Hatte schon so ein Gefühl, dass das keine 08/15-Aufgabe sein wird. Aber so macht das Programmieren auch Spass.

Danke, Luckner