Daten aller Donnerstage im Monat

[Neutral General]

Hi,

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... 07.01.10,14.01.10,21.01.10,28.01.10.

Geht sowas halbwegs einfach?

Gruß
Neutral General

[Wolfgang Mix]

Meinst Du

Delphi-Quellcode:

If DayOfTheWeek = 4 Then ...

[Neutral General]

Du hast schon gemerkt dass ich von Firebird SQL und nicht von Delphi rede?

[mkinzler]

SQL-Code:

select EXTRACT( Weekday from <Datumsfeld>) from <Tabelle>;

[Valle]

Ich weiß nicht wie groß deine Datenbank sein wird, aber ich denke an der Stelle ist es sinnvoll eine Spalte für den Wochentag einzuführen. Die Berechnung, um welchen Wochentag es sich an diesem Tag handelt muss für jede Zeile einmal gemacht werden - und das bei jedem Query. Da wäre eine weitere Spalte "Wochentag" mit einem kleinen Int zwischen 0 und 6 denke ich sinnvoll. :-)

Liebe Grüße,
Valle

[Neutral General]

Tut mir bitte einen Gefallen und lest meine Frage bevor ihr antwortet... :roll:

Es geht darum dass ich folgendes habe: Wochentag (z.B. 3 = Mittwoch) und einen Monat (5 = Mai) und ich jetzt per SQL die Daten aller Mittwoche im Mai des aktuellen Jahres erhalten will.

[mkinzler]

Ermittle den ersten Donnerstag des Monats und dann zähle immer 7 dazu

[Neutral General]

Und wie mache ich das?...

[himitsu]

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

[mkinzler]

Zitat:

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

Ja siehe 4.
Er möcht aber alle Donnerstage eines Monats und nicht ermitteln, ob ein Datum ein Donnerstag ist.

[Neutral General]

Zitat:

Zitat von himitsu

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

:evil: :cry:

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

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?

SQL-Code:

... 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))

[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:

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 :oops:

alex

[Neutral General]

Hi,

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

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.

[himitsu]

wollte schon "doch" sagen, aber sah grad noch 'nen Vertipper ... so, jetzt kann ich es

Zitat:

Zitat von Neutral General

Mh, dann wird doch start nicht hochgezählt.

doch :mrgreen:

[Neutral General]

Ja so gehts natürlich auch :mrgreen:

[user0815]

Ist für Access, keine Ahnung ob´s hilft

SQL-Code:

SELECT t_Messung.Datum, Weekday(t_Messung.Datum) AS Werktag
FROM t_Messung
WHERE (((Weekday(t_Messung.Datum))=5));