Start und Ende einer Kalenderwoche bestimmen

[Ykcim]

Hallo Zusammen,

ich benötige eine Möglichkeit, wie ich den STart und das Ende einer Kalenderwoche bestimmen kann. Also wenn ich sage KW38 im 2013 dann brauch eich als start 16.09.2013 und als ENde 22.09.2013.

Kann mir jemand helfen?

Ich hatte gehofft, dass ich das mit StartOfTheWeek hinbekomme. Aber abgesehen davon, dass die Finktion bei meinem Delphi XE2 Starter nicht läuft, ist da ja auch ein Datum als Input und nicht eine KW und ein Jahr...

Vielen Dank Patrick

[Volker Z.]

Hallo,

schau mal in der OH nach System.DateUtils . Dort gibt es Funktionen StartOfAWeek und EndOfAWeek .

Gruß

[Ykcim]

Hallo,

also StartOfTheWeek funktioniert. Jetzt benötige ich "nur" noch ein Datum aus einer Kalenderwoche. Also ich sage KW38 aus dem Jahr 2013 und dann brauche ich ein Datum zwischen dem 16.09.2013 und dem 22.09.2013.

Habt Ihr auch dazu eine Idee?

Vielen Dank
Patrick

[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ß

[Ykcim]

Vergesst es!!!o ps:

Ich brauche doch nur StartOfAWeek benutzen!!!

Habe ich glatt übersehen!

Trotzdem vielen Dank

Patrick

[Ykcim]

@Volker Z.
Habe den Hinweis erst nach meiner Antwort gesehen.

Vielen Dank
Patrick