Datum Funktion - letzte Tag im Monat

[d6lpz]

Hallo,

ich benötige für eine Abfrage den ersten und den letzten Tag eines Monats.
Also keinen Zeitbereich vom 12.12.07 bis zum 12.01.08. Deswegen möchte ich kein KalenderControl verwenden.

Ich habe also eine listbox mit den Monaten und eine mit den Jahreszahlen.

Gibt es eine Funktion für die automatische Ermittlung des ersten und des letzten Tages im Monat (Februar Problem).
In MS Access habe ich den Monat extrahiert und dann +1 Monat und -1 Tag gerechnet.

Ich hoffte nun das in Delphi dieses "Gefummel" nicht notwendig ist und es eine Funktion dafür gibt.

Danke für alle Hinweise.
Dirk

[Kroko1999]

Schon mal DateUtils durchforstet?

[Christian18]

Hallo,

ja es gibt dafür in Delphi schon eine fertige Function.

Hier ein kleines Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var Anfang, Ende: TDateTime;
begin
  Anfang:=StartOfTheMonth(now);
  Ende:=EndOfTheMonth(now);
end;

ich weiß aber nicht, ob das dann mit deinem Kalendercontrol passt. Da du ja keins verwenden willst.

[d6lpz]

Zitat:

Zitat von Kroko1999

Schon mal DateUtils durchforstet?

Phantastisch!! :bounce2:

Danke
Dirk