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:

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

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

**sirius**

@Klaus
Und was machst du im Schaltjahr?

**alzaimar**

Zitat von sirius:

@Klaus
Und was machst du im Schaltjahr?

Zitat von SirThornberry:

einfach die Unit DateUtils einbinden und die Funktion IncYear nutzen

**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.

Einem Datum ein gnazes Jahr hinzu addieren

Einem Datum ein gnazes Jahr hinzu addieren

Re: Einem Datum ein gnazes Jahr hinzu addieren

Re: Einem Datum ein gnazes Jahr hinzu addieren

Re: Einem Datum ein gnazes Jahr hinzu addieren

Re: Einem Datum ein gnazes Jahr hinzu addieren

Re: Einem Datum ein gnazes Jahr hinzu addieren

Re: Einem Datum ein gnazes Jahr hinzu addieren

Forumregeln

HolgerCW Registriert seit: 28. Nov 2006 Ort: Marl 1.207 Beiträge Delphi XE7 Enterprise	#1 Einem Datum ein gnazes Jahr hinzu addieren 23. Jul 2007, 08:17 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
	Zitat

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#3 Re: Einem Datum ein gnazes Jahr hinzu addieren 23. Jul 2007, 08:23 einfach die Unit DateUtils einbinden und die Funktion IncYear nutzen [Edit]Formulierung geändert da diese irgendwie unfreundlich klang[/Edit] Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat

sirius Registriert seit: 3. Jan 2007 Ort: Dresden 3.443 Beiträge Delphi 7 Enterprise	#4 Re: Einem Datum ein gnazes Jahr hinzu addieren 23. Jul 2007, 08:30 @Klaus Und was machst du im Schaltjahr? Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
	Zitat

alzaimar (Moderator) Registriert seit: 6. Mai 2005 Ort: Berlin 4.956 Beiträge Delphi 2007 Enterprise	#5 Re: Einem Datum ein gnazes Jahr hinzu addieren 23. Jul 2007, 09:49 Zitat von sirius: @Klaus Und was machst du im Schaltjahr? Zitat von SirThornberry: einfach die Unit DateUtils einbinden und die Funktion IncYear nutzen "Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!" (Monty Python "Joke Warefare")
	Zitat

HolgerCW Registriert seit: 28. Nov 2006 Ort: Marl 1.207 Beiträge Delphi XE7 Enterprise	#6 Re: Einem Datum ein gnazes Jahr hinzu addieren 23. Jul 2007, 09:57 Vielen dank, klappt mit der IncYear Gruss Holger
	Zitat

RavenIV Registriert seit: 12. Jan 2005 Ort: Waldshut-Tiengen 2.875 Beiträge Delphi 2007 Enterprise	#7 Re: Einem Datum ein gnazes Jahr hinzu addieren 23. Jul 2007, 10:11 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. Klaus E. Linux - das längste Text-Adventure aller Zeiten... Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
	Zitat