Daten aller Donnerstage im Monat

[Neutral General]

@Wolfgang: Dann weißt du auch dass mir (d)ein Delphi Code absolut nichts nutzt?
In Delphi könnte ich mir sone Funktion auch schreiben. Aber es geht darum, dass ich keine Ahnung habe wie ich es in SQL machen soll

@himitsu: Es gibt kein 'datumsfeld'.. Das haben mkinzler und ich schon mehrmals versucht zu erklären

[himitsu]

wie jetzt,
du hast keine Tabelle und willst von der DB nur jeweils das Datum mit einem bestimmten Wochentag aus dem Nichts bekommen?

[Wolfgang Mix]

Zitat:

Der Titel ist etwas komisch. Also was ich gerne hätte ist, eine Query, die mir die Daten von z.B. jedem Donnerstag eines Monats zurückliefert...

Was wird denn geliefert?

[Mithrandir]

Zitat von Neutral General:

@Wolfgang: Dann weißt du auch dass mir (d)ein Delphi Code absolut nichts nutzt?
In Delphi könnte ich mir sone Funktion auch schreiben. Aber es geht darum, dass ich keine Ahnung habe wie ich es in SQL machen soll

Du versuchst jetzt auf Biegen und Brechen, das mit SQL umzusetzen. Wozu? In derselben Zeit hättest du die Funktion fünfmal in Delphi implementiert.

[mkinzler]

Dirty hack:

SQL-Code:

CREATE OR ALTER PROCEDURE WOCHENTAGEEINESMONATS (
    monat smallint,
    wtag smallint,
    jahr integer)
returns (
    datum date)
as
declare variable m smallint;
begin
  select extract( weekday from cast ( :jahr || '.' || :monat || '.01' as date)) from rdb$database into :m;
  m = MOD( :wtag + :m - 2, 7);
  while (:m <= 31 /* mit berechneten Maxdatum des Monats ersetzen */) do
  begin
      datum = cast( :jahr || '.' || :monat || '.' || m as date);
      m = :m + 7;
      suspend;
  end
end

[omata]

...

[alex517]

ist Käse wenn man nicht lesen kann

alex

[Neutral General]

Hi,

Danke an alle und vorallem an mkinzler und omata die sich viel Mühe gemacht haben

Ich wollte das ursprünglich über SQL lösen weil ich diese Daten in FreeReport brauchte und es eben um einiges einfacher ist die Daten in SQL mitzuselektieren als sie in Delphi noch mühsam in die Datensätze einfzufügen. Habe mich allerdings jetzt doch dafür entschieden die Berechnung der Wochentage in Delphi durchzuführen. Für die Leute dies interessiert poste ich hier jetzt die Schlüsselfunktion die die Daten aller (z.B.) Donnerstage im Januar des aktuellen Jahres in eine TList<TDate> schreibt.

Delphi-Quellcode:

procedure AddWochentage(AMonat, AWochentag: Byte; ADestList: TList<Date>);
var start: TDateTime;
    i: Integer;
begin
  start := EncodeDate(YearOf(now),AMonat,1);
  for i := 0 to DaysInMonth(start) - 1 do
  begin
    if DayOfWeek(start)-1 = AWochentag then
      ADestList.Add(start);
    start := IncDay(start);
  end;
end;

// Aufruf:
var AList: TList<TDate>;
begin
  // .. AList erstellen ..
  AddWochentage(1,4,AList);
end;

// Ergebnis:
// - 07.01.10
// - 14.01.10
// - 21.01.10
// - 28.01.10

[himitsu]

man könnte es notfalls noch etwas kürzen

Delphi-Quellcode:

procedure AddWochentage(AMonat, AWochentag: Byte; ADestList: TList<Date>);
var start: TDateTime;
    i: Integer;
begin
  start := EncodeDate(YearOf(Now), AMonat, 1);
  for i := 0 to DaysInMonth(start) - 1 do
    if DayOfWeek(start + i) - 1 = AWochentag then
      ADestList.Add(start + i);
end;

[Neutral General]

Mh, dann wird doch start nicht hochgezählt.