Mike19 - Mo 21.03.11 11:06

---

Moderiert von Narses: Abgetrennt von [url=http://branch.delphi-forum.de/viewtopic.php?t=104581&start=0&postorder=asc]hier[/url].

Nun die nächste Frage.

Gibt es eine Funktion, mit der ich aus dem Wert der Kalenderwoche das Datum von einem bestimmten Wochentag in dieser Woche ermitteln kann.

Beispiel:

WeekOf = 12
Day = 1

Datum wäre dann 21.März 2011

Danke für Eure Hilfe schon im voraus

1:
2:
3:
4:
5:
6:
7:
8:
9:

Function GetDay4Week(Tag, Woche, Jahr:Word):TDateTime;
var
  i:Integer;
begin
  Result := StartOfTheWeek(EncodeDate(Jahr,1,1));
  while (Woche<=53) and (WeekOf(Result) <> Woche) do Result := Result + 7;
  Result := Result + Tag - 1;

end;                    

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!