Array of Weeks anhand Datum von - Datum bis

[itblumi]

Hallo Erich,

schau dir mal die Funktion WeekOf aus der Unit DateUtils an. Damit kannst du die start Woche ermitteln und sobald die Woche um 1 erhöht wird zum nächsten
Array wechseln.

[dummzeuch]

Zuerst sicherstellen, dass das Anfangsdatum tatsächlich ein Montag ist. Wenn nicht evtl. korrigieren oder Fehler. Danach kann man das Anfangsdatum einfach immer um 7 erhöhen, das ist dann der nächste Montag (TDateTime speichert die Tage im ganzzahligen Anteil). Am Ende muss man auch noch entscheiden, ob man eine evtl. Teilwoche noch in der Liste haben will oder nicht.

[himitsu]

Nja, die DateUtils bietet auch so Einiges, um nicht selber rechnen und mit unverständlichen Zahlen (7) umgehen zu müssen....

DayOfTheWeek
StartOfTheWeek
EndOfTheWeek
IncDay( , 7)
IncWeek


Das Erste ist datum_von bis EndOfTheWeek(datum_von) ... bzw. Min(EndOfTheWeek(datum_von), datum_bis).
die nächsten sind dann "current" bis EndOfTheWeek(current)
und dann ab dem ersten EndOfTheWeek mit IncWeek weiter, bis datum_bis

[dataspider]

Wenn es dein Projekt mit der Firebird Datenbank betrifft, dann würde ich das die Datenbank machen lassen:

Stored Proc:

SQL-Code:

create or alter procedure sp_weeks (
    von date,
    bis date)
returns (
    woche smallint,
    datum date)
as
begin
  woche = 1;
  while (:von <= :bis) do
  begin
    datum = :von;
    von = :von + 1;
    suspend;
    if (extract(weekday from :datum) = 0) then
      woche = :woche + 1;
  end 
end

Abfrage:

SQL-Code:

select
  'Woche '||t.woche
, min(t.datum)
, max(t.datum)
  from sp_weeks(current_date, current_date + 50) t
  group by t.woche

Frank