Vormonat ermitteln

[Rollo62]

Vielleicht ist das eine Möglichkeit ?
https://entwickler-ecke.de/viewtopic...b1da599aa8a398

Delphi-Quellcode:

function Vormonat(aDatum: TDateTime): String;
var J, M, T : word;
begin
  DecodeDate(aDatum,J,M,T);
  aDatum := EncodeDate(J,M,1);
  Result := FormatDateTime('MMMM',aDatum-1);
end;