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

Delphi-Quellcode:

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:

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

Delphi-Quellcode:

  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:

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

Delphi-Quellcode:

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

Danke im voraus

+

Zitat:

Damit (FormatDateTime) habe ich es schon versucht brauch aber

Delphi-Quellcode:

Jahr -1

=

Delphi-Quellcode:

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

[SaFu]

Danke euch habe es mit DecodeDate hinbekommen