1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function ISOWeekNumber(AYear, AMonth, ADay: Word; CMode: integer): integer;
const
  dOffset  : array[1..7] of Byte = (6, 7, 8, 9, 10, 4, 5);
var
  Present, StartOfYear  : TDateTime;
   FirstDayOfYear, WeekNumber, NumberOfDays, RYearOfWeekNumber: integer;
begin
  Present      := EncodeDate(AYear, AMonth, ADay);
   StartOfYear    := ENcodeDate(AYear, 1, 1);
   FirstDayOfYear  := dOffset[DayOfWeek(StartOfYear)];
   NumberOfDays  := Trunc(Present - StartOfYear) + FirstDayOfYear;
   WeekNumber    := NumberOfDays div 7;
   if  WeekNumber = 0 then
     Result := ISOWeekNumber(AYear - 1, 12, 31, CMode)
   else begin
     RYearOfWeekNumber  := AYear;
       if  WeekNUmber = 53 then begin
         if  DayOfWeek( EncodeDate(AYear, 12, 31) ) < 5 then begin
             RYearOfWeekNumber := AYear + 1;
               WeekNumber := 1;
           end;
       end;
       if  CMode = 1 then
         Result := WeekNumber
       else
         Result := RYearOfWeekNumber;
   end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

SELECT-Abfrag für den entsprechenden Bereich: z.B. 01.01.03 - 30.03.03

zum ersten Datensatz

!Sprungmarke!

TempInt := ISOWeekNumber(Query.FieldValue['Datum'], 1) 

Schleife:

Übergabe der Restlichen Datenfelder an QReport

Zum nächsten Datensatz

Überprüfe, ob das Datum dieses Datensatzes noch mit TempInt übereinstimmt

Wenn ja, Schleife weitergehen

Wenn nein, füge dem QReport [...] zu, und gehe zu Sprungmarke					

1:

Woche := 0;					

1:
2:
3:
4:
5:
6:
7:

  var jahr, monat, tag : Word;
begin
jahr := FormatDateTime('yy', Query1.fieldValues['termin']);
monat := FormatDateTime('mm', Query1.fieldValues['termin']);
tag := FormatDateTime('dd', Query1.fieldValues['termin']);
TempWoche := ISOWeekNumber(jahr, monat, tag, 1);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  var jahr, monat, tag : Word; 
begin 
  DecodeDate(Query1.FieldByName('termin').AsDateTime, jahr, monat, tag);
  TempWoche := ISOWeekNumber(jahr, monat, tag, 1);
  if TempWoche <> Woche then begin 
     PrintBand := True;
     Woche := TempWoche;
     //An dieser Stelle noch den Wert von Woche auf dem Band ausgeben
  end
  else
    PrintBand := False;
end;