Aus Tag und Jahr -> Datum herrausfinden

[HolgerCW]

Hallo zusammen,

wenn ich Tag 155 und Jahr 2007 habe,

wie bekomme ich dann das dazugehörige Datum raus ?

Gruss

Holger

[stifflersmom]

Einen Variable vom TDateTime erzeugen,
auf den 01.01.2007 setzen und dann 155 dazuaddieren.

Moin

[SirThornberry]

wenn du einen DateTime hast und 1 dazu addierst hast du den nächsten Tag. Das heißt:
einfach einen Datetime auf den ersten Tag des Jahres 2007 erzeugen und dann die gewünschten Tage dazu addieren.
Natürlich beachten das man wenn man auf den ersten Tag 2 addiert den dritten tag hat.

also nicht wie stifflersmom empfohlen hat 155 dazu addieren sondern nur 154

[DeddyH]

Schau Dir mal EncodeDateDay aus DateUtils an.

[stifflersmom]

Zitat:

Zitat von SirThornberry

also nicht wie stifflersmom empfohlen hat 155 dazu addieren sondern nur 154

Stimmt, da war ich ein wenig zu hastig..

Moin

[HolgerCW]

Alles klar.

Das klappt schon mal.

Jetzt eine weiter Frage:

Wenn ich Tag 1 und Monat 7 habe, wie komme ich dann auf die Anzahl der Tage ?

Kann ich ein Datum von dem anderen abziehen und bekomme dann die Differenz der Tage ?

Gruss

Holger

[DeddyH]

Zitat:

Zitat von HolgerCW

Kann ich ein Datum von dem anderen abziehen und bekomme dann die Differenz der Tage ?

Genau.

[mkinzler]

ja, da ein TDate vor dem Komma die Anzahl der tage seit dem 31.12.1899 enthält.

[SirThornberry]

ich glaub es gibt eine Funktion DayOfTheYear

wenn es die nicht gibt wäre schlussfolgern angesagt.
Wenn du auf den 01.01. 2 addierst um auf den 03.01. zu kommen dann brauchst du nur die Differenz zwischen dem 03.01. und dem 01.01. bilden um auf die 2 zu kommen (Grundrechenarten)

[HolgerCW]

Hier sagt er mir inkompatible Typen: (Integer und Extended);

Delphi-Quellcode:

var
 AnzahlTage: Integer;

AnzahlTage := Datum - strtodate('01.01.' + CB_UP_Jahr.text);

Gruss

Holger

[DeddyH]

Delphi-Quellcode:

AnzahlTage := trunc(Datum - strtodate('01.01.' + CB_UP_Jahr.text));

[HolgerCW]

Super danke,

alle Varianten funktionieren.

Gruss

Holger