Akteuelles Jahr -1

[SaFu]

Hi

Möchte das vergangene Jahr angezeigt bekommen
Wie ich das hinbekomme hab ich schon aber nicht wie ich das Datum weg bekomme, möchte nur das Jahr haben

ComBobox3.Items.add(DateToStr(incYear(date,-1))); Danke im voraus

[SirThornberry]

mit DecodeDate kannst du ein Datum zerlegen.

[Jelly]

Schiel mal in die Unit DateUtils rein... Da wirst du fündig werden.

[Phoenix]

Guck Dir mal die Funktion FormatDateTime an. Da kannst Du im Formatstring auf das Jahr beschränken. Hab den nötigen String aber nicht im Kopf grad.

[SaFu]

Zitat von Phoenix:

Guck Dir mal die Funktion FormatDateTime an. Da kannst Du im Formatstring auf das Jahr beschränken. Hab den nötigen String aber nicht im Kopf grad.

Damit habe ich es schon versucht brauch aber

  Jahr -1

[SirThornberry]

wie gesagt DecodeDate. Es macht ja keinen Sinn es als String zu haben um dann wieder in einen Ordinaltypen zu wandeln.

[SaFu]

Naja die Hilfe sagt mir net gerade viel

//Ok habs übersehen in der hilfe

[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

[tomsel]

Zitat von fuknersascha:

Hi

Möchte das vergangene Jahr angezeigt bekommen
Wie ich das hinbekomme hab ich schon aber nicht wie ich das Datum weg bekomme, möchte nur das Jahr haben

ComBobox3.Items.add(DateToStr(incYear(date,-1))); Danke im voraus

+

Zitat:

Damit (FormatDateTime) habe ich es schon versucht brauch aber

Jahr -1

=

ComBobox3.Items.add(FormatDateTime('yyyy', incYear(date,-1)));

[SaFu]

Danke euch habe es mit DecodeDate hinbekommen