Datum Periode ausgeben

[API]

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)

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

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.

[Uwe Raabe]

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

Delphi-Quellcode:

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