DateTimePicker 2.Donnerstag im Monat anzeigen

[Uwe 111]

Hallo

Mein Problem ist, das ich immer den zweiten Donnerstag im Montat das Datum angezeigt bekomme. Wie kann man das hinbekommen?

MfG
Uwe 111

[s.h.a.r.k]

Hört sich für mich schwer danach an, dass man das selbst berechnen muss. Wobei es hier im Forum mal so einen Datums-Guru gab, der für alles mögliche Datums-Funktionen geschrieben hat.

[stahli]

Ich würde einfach mit EncodeDate den ersten Tag des Monats festlegen, mit DayOfTheWeek den Wochentag ermitteln und dann hochzählen.

[shmia]

Delphi-Quellcode:

// Weekday = Wochentag, 1=sonntag, 2=Montag,... 
// position darf von 1 bis 4 liegen
function GetWochentagX(datum:TDateTime; Weekday, position:integer);
var
  monatsanfang : TDateTime;
begin
  monatsanfang := StartOfMonth(datum);  // Monatanfang 01.mm.jjjj
  
  if (Weekday < 1) or (Weekday>7) then
    Weekday := 1;  // Zur Sicherheit, damit keine Endlosschleife entsteht

  while Weekday <> DayOfWeek(monatsanfang) do
    monatsanfang := monatsanfang + 1.0; // nächster Tag

  result := monatsanfang + 7.0 * (position -1);
end;


// Hilfsfunktionen
function ReplaceDateParts(ADate:TDateTime; year, month, day: Word):TDateTime;
var
   y, m, d : Word;
begin
   DecodeDate(ADate, y, m, d);
   if year <> 0 then y := year;
   if month <> 0 then m := month;
   if day <> 0 then d := day;
   result := EncodeDate(y, m, d);
end;
function StartOfMonth(ADate:TDateTime):TDateTime;
begin
   Result := ReplaceDateParts(ADate, 0, 0, 1);
end;

[Uwe 111]

Hallo shmia

Besten Dank es funkioniert.

MfG
Uwe 111

[Wolfgang Mix]

@ s.h.a.r.k
http://www.delphipraxis.net/141399-d...unktionen.html

Mfg

Wolfgang

[s.h.a.r.k]

Siehe da, er hat sich von selbst eingefunden