Datum aus DB Datensatz in dieser Woche / Monat

[Sharky]

Zitat von Salomon:

@hoika: kannst du mir ein paar tipps geben wie du ermittelst ob ein Datum in dieser Woche / Monat liegt? Mir fällt da gerade gar kein Ansatz ein wie ich ran gehen soll....

Hai Salomon,

versuche es mal so:

Delphi-Quellcode:

uses
  DateUtils;

procedure TDemo_Form.btn_ThisWeekClick(Sender: TObject);
var
  first_date_of_the_week: TDate;
  last_date_of_the_week:  TDate;
begin
  first_date_of_the_week := StartOfTheWeek(date);
  last_date_of_the_week  := EndOfTheWeek(date);
  ShowMessageFmt('Diese Woche geht vom %s bis zum %s',
    [DateToStr(first_date_of_the_week), DateToStr(last_date_of_the_week)]);
end;

Für den Monat dann mit StartOfTheMonth und EndOfTheMonth arbeiten.