Einem Datum ein gnazes Jahr hinzu addieren

[HolgerCW]

Hallo zusammen,

wie kann ich einem Datum am einfachsten ein gnazes Jahr hinzu addieren ?

Soll heissen, das der 25.03.2007 + 1 Jahr = 25.03.2008 oder 25.03.2007 + 5 Jahre = 25.03.2012

Gruss

Holger

[Klaus01]

Da das Datum als dezimalBruch abgelgt ist und der Ganzzahlanteil die Tage enthält, sollte
es doch so funktioneren:

Delphi-Quellcode:

datumNeu := datumJetzt + 365{*24});

[edit] das *24 war falsch, es müssen ja nur die Tage dazugezählt werden.
und wie sirius schon anmerkte, das Schaltjahr sollte auch Beachtung finden.
[/edit]

Grüße
Klaus

[SirThornberry]

einfach die Unit DateUtils einbinden und die Funktion IncYear nutzen :-D

[Edit]Formulierung geändert da diese irgendwie unfreundlich klang[/Edit]

[sirius]

@Klaus
Und was machst du im Schaltjahr?

[alzaimar]

Zitat:

Zitat von sirius

@Klaus
Und was machst du im Schaltjahr?

Zitat:

Zitat von SirThornberry

einfach die Unit DateUtils einbinden und die Funktion IncYear nutzen :-D

:stupid:

[HolgerCW]

Vielen dank,

klappt mit der IncYear

Gruss

Holger

[RavenIV]

Wenn man die Funktion IncYear verwendet, wird das Schaltjahr automatisch beachtet.
Der macht nämlich ein DecodeDate, erhöht dann das Jahr und macht weieder ein EncodeDate.