[VisualCLX] Datum vom ersten Sonntag ermitteln

mexx · Beiträge: 1183

Hallo,

ich möchte das Datum vom ersten Sonntag im Monat ermitteln. Gibt es dafür einen bestehende Funktion? Habe es schin mit google versucht, aber nix gefunden.

Gruß mexx

Martin1966 · Beiträge: 1068 Win 2000, Win XP Delphi 7, Delphi 2005

ich glaube nicht, dass es da bereits eine funktion gibt.

möglich wäre es wie folgt:

markieren

Delphi-Quelltext

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

function FirstSunday (AMonth, AYear : Integer) : tDate;
begin
  Result := IncDay (
      EncodeDateTime (AYear, AMonth, 1, 0, 0, 0, 0),
      8 - DayOfWeek (EncodeDateTime (AYear, AMonth, 1, 0, 0, 0, 0))
    );
end;

ob´s funktioniert musst du selbst ausprobieren. ;-)

lg martin

_________________
Ein Nutzer der Ecke ;-)

mexx · Beiträge: 1183

Super, funktioniert!

Martin1966 · Beiträge: 1068 Win 2000, Win XP Delphi 7, Delphi 2005

Bitte.

_________________
Ein Nutzer der Ecke ;-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme