Letzten Monat anzeigen...

[Sharky]

Zitat von Mauli:

Ich brauche eine Funktion, mit der ich den letzten und den ersten Tag letzten Monats auslesen kann.
...Danke

Naja, der erste Tag des letzten Monats (wie übrigens bei jedem Monat) ist der 1.

Der letzte Tag? Einfach ein Array [1..12] Of Integer. Dort die Anzahl der Tage die der jeweilige Monat hat reinschreibne. Beim März prüfen ob das Datum in einem Schaltjahr liegt. Dann einfach den Wert ausgeben.

Pseudocode:

Delphi-Quellcode:

procedure SageMirDenLetzten (datum : TDateTime);
var
 vormonat,
 monat : Intege;
 letzter : Integer;
 monatstage : ARRAY [1..12] OF Integer;
begin
 monatstage[1]:=31;
 .
 .
 .
 monatstage[12]:=31;
 monat := ErmitteleMonatVonJahr (datum);
 if (monat = 1) then  
  begin
   vormonat := 12;
  end
 else
  begin
   vormonat := monat -1;
  end;
 letzter := monatstage[monat];
 if (monat = 3) AND (EsIstSchaltjahr (datum)) then
  begin
   INC (letzter);
  end;
end;

Alle Notwendigen Funktionen solltes Du im Delphi finden.