Moin,

Suche Funktionen, welche folgendes machen:

- Periode der letzten Woche ausgeben.
Wenn z.B. am 03.01.2011 die Funktion aufgerufen wird, soll es mir
27.12.2010-02.01.2011 zurückgeben
(Wochenstart: Montag, Wochenende: Sonntag)

markieren

Delphi-Quellcode:

function PeriodeLetzteWoche: string;
begin
  .....
end;

- Periode des letzten Monats ausgeben.
Wenn z.B. am 03.01.2011 die Funktion aufgerufen wird, soll es mir
01.12.2010-31.12.2010 zurückgeben

markieren

Delphi-Quellcode:

function PeriodeLetzterMonat: string;
begin
  .....
end;

Habe schon verschiedenes propiert doch der Code wurde meistens zu lange und darum suche ich möglichst kurze Varianten, evtl. mit Hilfsfunktionen ErsterTagLetzteWoche, LetzterTagLetzteWoche etc.

In DateUtils.pas von Delphi XE gibt es folgende Methoden:

markieren

Delphi-Quellcode:

function StartOfTheWeek(const AValue: TDateTime): TDateTime; {ISO 8601}
function EndOfTheWeek(const AValue: TDateTime): TDateTime; {ISO 8601}