Aus Kalenderwoche Datum eines bestimmten Wochentags

Mike19 · Verfasst: Mo 21.03.11 11:06

Moderiert von Narses: Abgetrennt von [url=branch.delphi-forum....rder=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

bummi · Verfasst: Mo 21.03.11 11:58

markieren

Delphi-Quelltext

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;

gegf. noch Sonderfallprüfungen nötig

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

jaenicke · Verfasst: Mo 21.03.11 13:59

StartOfAWeek macht bereits genau das alles. ;-)

bummi · Verfasst: Mo 21.03.11 14:04

@jaenicke

danke, habe ich glatt übersehen...

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

Mike19 · Verfasst: Mo 21.03.11 14:45

Danke, klappt wunderbar.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme