Start und Ende einer Kalenderwoche bestimmen

[Volker Z.]

Hallo,

schau doch nochmals genau hin. Es gibt die Funktionen StartOfAWeek und StartOfTheWeek. Du brauchst erstere - gilt auch fur EndOfAWeek.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage ('KW38 vom: ' + FormatDateTime ('dd.mm.yyyy', StartOfAWeek (2013, 38)) + '-' + FormatDateTime ('dd.mm.yyyy', EndOfAWeek (2013, 38)))
end;

sollte es tun.


Gruß