Hallo Mauli,
mit folgender kleiner Funktion kann der erste eines beliebigen Monats ausgelesen werden. Bei Verwendung des aktuellen Datums als T1 kommt der Vormonat. Analog geht's mit dem letzten.
Delphi-Quellcode:
function firstOfPrevMonat(var T1 : Tdatetime):Tdatetime ;
(* Diese Funktion enthält die Berechnung des ersten Tags des vorhergehenden
Monats aus einem Datumswert.
erstellt am 7.7.03
durch JKi
Stand 7.7.03
*)
var Ye : word;
var mo : word;
begin
mo := monthof(T1);
if mo = 1 then
begin // ermitteln Monat und Jahr
mo := 12;
ye := yearof(T1)-1;
end
else
begin
mo := mo-1;
ye := yearof(T1);
end;
result := startofamonth(ye,mo);
end;
Gruss JohannesK