Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.314 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Array of Weeks anhand Datum von - Datum bis

  Alt 24. Nov 2022, 11:58
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
Frank Reim

Geändert von dataspider (24. Nov 2022 um 12:00 Uhr)
  Mit Zitat antworten Zitat