Tage in Jahre

[The Re@l]

Holla

Ich hab folgendes Porblem:

Code:

var
d: Tdatetime;
i: integer;
begin
d := Query1.FieldByName('date').AsDateTime;
i := Round(now - d);
edit2.Text := intToStr(i)

so der gibt mir nun die differenz in Tagen zurück, aber ich finde keine Lösung es in Jahre auszugeben, geht das überhaupt? Von wegen Schaltjahr etc.

Cya
The Re@l

[Haegar]

rechne es doch einfach um 1 jahr hat 365 tage (abgesehen vom schaltjahr). brauchst doch also nur das ergebniss durch 365 teilen!

edit: das mit dem schaltjahr hatte ich überlesen

gruss haegar

[The Re@l]

das dumme ist das ich es als erinnerungsFunktion einbauen wollte der mir direkt sagt wie alt die Person ist, aber wenn ich durch 365 teile kommt die rechnung nich aus.

[Haegar]

ich hab noch ne idee, wird aber vielleicht umständlicher als nötig.
alle 4 jahre (1460 Tage) haste ein tag mehr pro jahr.
kannste da nicht rekursiv rechnen und immer prüfen ob irgendwas (hab noch nicht ganz gefunden was) durch 1460 gleich 0 als rest liefert...dann haste schaltjahr, und deine tage im jahr sind nun 366 und wenn der rest<>0 ist, dann 365 tage!

einigermaßen verstanden? :roll:
gruss haegar

[The Re@l]

jop verstanden klingt auch logisch ich setz mich mal ran :coder:

Dank dir erstmal

[Haegar]

kannste mir die lösung dann mal zeigen? würd mal gern sehen was ich da verbrochen hab ;))

gruss haegar

[The Re@l]

Ich hab mir gerade noch was anderes überlegt, das, glaub ich, einfacher ist.
Und zwar lasse ich die Datums vergleichen, wenn Tag und Monat identisch ist, soll er mir ne Meldung machen und vom Jahr die Differenz ausgeben.

[The Re@l]

So funktionierts

Code:

var
 datum1, datum2: TDatetime;
 i: Integer;
begin
  IF DBEdit10.Text <>'' then begin
  datum1:= Query1.FieldByName('date').AsDateTime;
  datum2:=now;

  i := round(datum2-datum1);
  i := (i * 4);
  edit2.text := (intToStr(i Div 1461)) + ' jahre';
  end else begin
  edit2.Text := '';
  end;
end;

das war doch so wie du meintest @ haegar, oder?

[woki]

Hallo,

mal daran gedacht die Funktion

YearOf()

function YearOf(const AValue: TDateTime): Word;

Die Funktion gibt das Jahr zurück, das von einem TDateTime-Wert repräsentiert wird.

Zusammen mit:
function DayOfTheYear(const AValue: TDateTime): Word;

Die Funktion gibt die Anzahl der Tage zwischen dem angegebenen TDateTime-Wert und dem 31. Dezember des vorhergehenden Jahres an.

Sollte dies doch auch das Problem lösen?

Gruß
Wolfgang

[Haegar]

also wie gesagt so ne richtig fertige vorstellung hatte ich davon noch nicht, aber ob das mit dem rekursiv überhaupt nötig/praktisch gewesen wäre bezweifel ich selbst ;)

gruss haegar

[Duffy]

Hallo,
ich weis ja nicht was Du vor hast. Wenn Du aber nur das Alter in Jahren haben willst, dann decodiere (DecodeDate) doch einfach beide Datumsfelder und ziehe dann Jahr heute von Jahr damals ab. Jetzt brauchst Du nur schauen ob Tag und Monat vor oder gleich oder nach deinem Stichtag ist. Wenn kleiner dann einfach 1 vom Jahr abziehen.
Alles verstanden?

bye

[The Re@l]

So Nun funzt es auch richtig

Delphi-Quellcode:

procedure TForm3.DBEdit10Change(Sender: TObject);

var
 datum1, datum2,Dneu,dneu1: TDatetime;
 i: Integer;
 d,m,y,d1,y1,m1 : Word;
begin
  IF DBEdit10.Text <>'' then begin
  datum1:= Query1.FieldByName('date').AsDateTime;
  datum2:=now;
  decodedate(datum1,y,m,d);
  decodedate(datum2,y1,m1,d1);
  dneu := encodedate(1,m,d);     //Geburtsdatum
  dneu1 := encodedate (1,m1,d1); //aktuelles datum
  If dneu > dneu1 then
     i :=  Round((y1 - y)-1);
     edit2.Text := IntToStr(i) + ' Jahre';
  If dneu < dneu1 then
     i :=  Round(y1 - y);
     edit2.Text := IntToStr(i) + ' Jahre';
  If dneu = dneu1 then
     i :=  Round(y1 - y);
     edit2.Text := IntToStr(i) + ' Jahre';
  end else begin
  Edit2.Text := '';
  end;

end;

Thx @ all

[Duffy]

Hallo,
als Function wärs schöner gewesen !

Delphi-Quellcode:

function AlterInJahren(const Damals, Heute: TDateTime): Integer;
var
   DamalsTag, DamalsMonat, DamalsJahr: Word;
   HeuteTag, HeuteMonat, HeuteJahr: Word;
begin
  if Heute < Damals then
  begin
     Result := -1
  end
  else
  begin
    DecodeDate (Damals, DamalsJahr, DamalsMonat, DamalsTag);
    DecodeDate (Heute, HeuteJahr, HeuteMonat, HeuteTag);
    Result := HeuteJahr - DamalsJahr;
    if (HeuteMonat <= DamalsMonat) and (HeuteTag < DamalsTag) then
    begin
      Dec (Result);
    end;
  end;
end;

Delphi-Quellcode:

procedure TForm3.DBEdit10Change(Sender: TObject); 

var 
datum1, datum2,Dneu,dneu1: TDatetime; 
i: Integer; 
d,m,y,d1,y1,m1 : Word; 
begin 
  IF DBEdit10.Text <>'' then begin 
  datum1:= Query1.FieldByName('date').AsDateTime; 
  datum2:=now; 
  edit2.Text := IntToStr(AlterInJahren(datum1, datum2) + ' Jahre';
  end else begin 
  Edit2.Text := ''; 
  end; 
end;

bye

[The Re@l]

Sorry das ich erst jetzt schreibe, aber mein Motherboard hatte den löffel abgegeben, Deine Variante gefällt mir irgendwie besser.

mmhh auf jedenfall Danke nochmal für eure hilfe!