Funktion den Tage eines Jahres zu bestimmen

[Philippe Sch.]

Hi
ich benötige eine Funktion, um den Tag im Jahr zu bestimmen (quasi eine Funktion analog zu 'DayOfWeek': 'DayOfYear' - wenn's das gäbe). Ich habe es probiert mit Differenzrechnung (Datum1 minus '31.12.' des Vorjahres = Anzahl Tage). Das Problem dabei ist nur, dass ich die Differenz mit einer Extended-Variablen aufnehmen kann (Integer funktioniert nicht), sodann die Umwandlungsfunktion 'FloatToStr' statt 'IntToStr' anwenden muss, was jeweils das max. 3stellige Resultat zur Laufzeit verlängert. Hat mir jemand eine gute Idee?
Merci
Philippe

[Sharky]

Hai,

warum adierst Du nicht einfach die Tage der Monate + die Tage des laufenden monats?

z.B.:

datum = 14.04.2003

Dann einfach die DaysOfMonth von Januar bis März addieren.
Prüfen ob es ein Schaltjahr ist und gegebenenfals einen Tag dazu addieren.
Jetzt noch die 14 Tage vom April dazu und fertig.

Müsste in diesem Fall also 31 + 28 + 30 + 14 = 103 ergeben

der 14.04.2004 wäre dann 104.

[Gollum]

Hallo,

vielleicht hilft Dir das:

Code:

function Anzahltage(const aDatum:TDateTime):Integer;
var y, m, d:Word;
begin
  DecodeDate(aDatum, y, m, d);
  Result:=Round(aDatum-EncodeDate(y, 1, 1))+1;
end; // Anzahltage

  ...
  Label1.Caption:=IntToStr(Anzahltage(Date));
  ...

[Philippe Sch.]

Gollum, vielen Dank. Ist genau das was ich brauche.
Gruss Philippe