Letzten Monat anzeigen...

[JohannesK]

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