Delphi-PRAXiS - Delphi Datum Periode ausgeben

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Datum Periode ausgeben (https://www.delphipraxis.net/157184-datum-periode-ausgeben.html)

Datum Periode ausgeben

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.

AW: Datum Periode ausgeben

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}