Daten aller Donnerstage im Monat

[Neutral General]

Zitat von himitsu:

selbst mySQL kennt Funktionen um den Wochentag eines Datums zu bekommen ... das sollte also für Firebird ebenso nicht schwer sein.

Ich weiß wie ich den Wochentag eines Datums herausfinde. Das ist nicht das Problem

Ich weiß nur nicht wie ich z.B. alle Wochentage eines Monats durchlaufen kann und dann die zurückgeben kann, die ein Donnerstag sind.

Edit: Roter Kasten hat Urlaub

[Wolfgang Mix]

... und wenn selbst nicht, dann bastelt man das eben selber.
Modulo 7 kennt jede Programmiersprache ...

[mkinzler]

Per Hand: Ermittele Tag von 1. des Monats -> Datum des 1.Donnerstag

[himitsu]

praktisch irgendwie so?
... where WOCHENTAG('datumsfeld') = 3

[mkinzler]

Dazu müssten alle tage eines Monats in einer Tabelle stehen.

[Neutral General]

@himitsu, dass ginge wenn ich das ganze Jahr in einer Tabelle gespeichert hätte^^ Habe ich aber nicht.

Ich glaube ich brauche sowas wie ne Stored Procedure oder so. Man gibt Monat und Wochentag ein und die Procedure gibt Datum1,Datum2,Datum3,Datum4 zurück (ggf. NULL, falls es nur 3 Donnerstage gibt oder so).

Im Prinzip brauche ich sowas nur in SQL:

Delphi-Quellcode:

function GetWochentage(AMonat: TMonat; AWochentag: Integer): TList<TDate>;
var i: Integer;
begin
  for i := 0 to AMonat.TageCount-1 do
    if AMonat.Tage[i].Wochentag = AWochentag then
      Result.Add(AMonat.Tage[i].Date);
end;

[Wolfgang Mix]

... und wenn du das hier umstrickst?

Delphi-Quellcode:

// Source: [url]http://www.mycsharp.de/wbb2/thread.php?threadid=74208[/url]
// Translated by DeddyH - Delphi-PRAXiS
// Useful. if you search for f.e. last thursday in August of 2009
function LastDayOfWeekOfMonth(year,month: Integer;DayOfWeek: TWeekDay):TDate;
var temp: TDate;
begin
  temp := IncMonth(EncodeDateTime(year,month,1,0,0,0,0));
  Result := IncDay(temp,(DayOfWeek - DayOfTheWeek(temp) + 7) mod 7 - 7);
end;

[Neutral General]

Wolfgang? Weißt du was SQL ist?

[Wolfgang Mix]

Ja

[himitsu]

SQL-Code:

select 'datumsfeld' from 'datumstabelle' 
  where (WOCHENTAG('datumsfeld') = :suchwochentag) 
    and (MONAT('datumsfeld') = MONAT(:suchdatum))
    and (JAHR('datumsfeld') = JAHR(:suchdatum))