Wochennummer aus Datum

[Yheeky]

Hi,

wie bekomme ich von einem Datum die zugehörige Wochennummer?

Gruß Yheeky

[RomanK]

Schau dir in der Hilfe mal WeekOfTheYear an.

[Yheeky]

Gibt´s nicht in der Hilfe...

[RomanK]

Zitat:

Zitat von Die Delphi-Hilfe

Die Funktion WeekOfTheYear gibt die Woche des Jahres zurück, das durch einen TDateTime-Wert repräsentiert wird.

Unit

DateUtils

Kategorie

Datum/Zeit

Delphi-Quellcode:

function WeekOfTheYear(const AValue: TDateTime): Word; overload;
function WeekOfTheYear(const AValue: TDateTime; var AYear): Word; overload;

Beschreibung

Mit WeekOfTheYear können Sie die Woche des Jahres ermitteln, das durch den angegebenen TDateTime-Wert repräsentiert wird. WeekOfTheYear gibt einen Wert zwischen 1 und 53 zurück.

AYear gibt das Jahr mit der angegebenen Woche zurück. Dieser Wert darf nicht mit dem Jahr in AValue identisch sein. Der Grund liegt darin, daß die erste Woche eines Jahres als erste Woche definiert ist, von der mindestens vier Tage in das betreffende Jahr fallen. Ist also der erste Kalendertag eines Jahres der Freitag, Samstag oder Sonntag, gibt WeekOfTheYear für die ersten drei oder zwei Tage oder für den ersten Tag des Kalenderjahres die Woche des vorhergehenden Jahres zurück. Entsprechendes gilt am Jahresende: Ist der letze Kalendertag eines Jahres ein Montag, Dienstag oder Mittwoch, gibt WeekOfTheYear für die letzten drei oder zwei Tage bzw. den letzten Tag des Kalenderjahres den Wert 1 (erste Woche des nächsten Kalenderjahres) zurück.

Hinweis: WeekOfTheYear verwendet die Wochendefinition des ISO-Standards 8601. Demzufolge beginnt eine Woche am Montag und endet am Sonntag.
Hinweis: WeekOfTheYear gibt den gleichen Wert wie die Funktion WeekOf zurück.

[Christian Seehase]

Moin Roman,

D6 kennt diese Funktion, D5 nicht ;-)

[nailor]

auf irgend einer unterseite von

manfred.maday.bei.t-online.de/

hat der typ sehr(!) viel zu kalendern in pascal-sourcecode im angebot!

[Yheeky]

Kann nicht jemand den Code aus Delphi6 rauskopieren :lol:

[jbg]

Das wäre nicht legal.

Aber eigene Fabrikate darf man weitergeben.

[d3g]

Ist es vielleicht legal, das mit Units aus Kylix 3 Open zu machen? Wenn ich meine Programme unter der GPL veröffentliche (mit K3Open darf man's ja gar nicht anders), dann müsste ich den Source doch auch weitergeben...

MfG,
d3g

[Yheeky]

Warum soll das denn nicht legal sein?! Hat jemand zufällig was eigenes?

Gruß Yheeky

[Marco Haffner]

Hallo,

ich weiß nicht mehr wo ich es her hab', konnte es noch von einer defekten CD retten (auf der sich sämtliche Delphi Komponenten, Beispiele und Tips befanden, die ich gesammelt hatte :cry: ):

Code:

function WeekOfYear: Word;
var
  Day, Month, Year  : Word;
  FirstDate, DateNow: TDateTime;
  DateDiff          : Integer;
begin
    Day := SysUtils.DayOfWeek(Date) - 1;
  DateNow := Date + 3 - ((6 + Day) mod 7);
  DecodeDate(DateNow, Year, Month, Day);
  FirstDate := EncodeDate(Year, 1, 1);
  DateDiff  := Trunc(DateNow - FirstDate);
  Result    := 1 + (DateDiff div 7);
end;

Ist es das was Du suchst ?

[Yheeky]

Yep, genau das war´s. Muss es nur noch ein bisschen umbauen. Danke!

Frohes Fest!

Gruß Yheeky