Akteuelles Jahr -1

[CK_CK]

Hast du's jetzt hinbekommen?

Hier wäre mein Ansatz:

Delphi-Quellcode:

uses sysutils;
...
function JahrMinusEins: Integer;
var
  y, m, d: word;
begin
  DecodeDate(now, y, m, d);
  Result := y-1;
end;

Chris