kleines Copy problem

[SilverMoonGirl]

Hi @all,

mit

Delphi-Quellcode:

(trim(copy(DateToStr(now),0,5))

kopiere ich die ersten 5 Zeichen des Datum, wie kopiere ich aber nur die lezten 4 Zeichen???

[himitsu]

Copy(DateToStr(now), Length(DateToStr(now) - 3), 4)

mit Copy(DateToStr(now), 1, 5) kopiert man die ersten 5 Zeichen.

[Gollum]

Hallo,

folgendermaßen:

Delphi-Quellcode:

var s:String;
...
...
s:=DateToStr(now);
s:=Copy(s, Length(s)-3, 4);
...

Wenn Du das Datum in die einzelnen Bestandteile zerlegen willst, würde ich Dir eine anderen Vorgegehensweise nahelegen:

Delphi-Quellcode:

var t, m, j:Word;
...
DecodeDate(Now, j, m, t);
ShowMessage('Jahr ist: '+IntToStr(j));
...

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[s14]

Hi SilverMoonGirl

mit

Delphi-Quellcode:

trim(copy(DateToStr(now),Length(DateToStr(now))-3,4))

wobei man da vielleicht eine Hilfsvariable verwenden sollte, um DateToStr nicht zweimal zu bemühen :thuimb:

Gruß
s14

[SilverMoonGirl]

Super,
vielen dank :)

hätte ich eigentlich auch selber drauf kommen können :oops:

[s14]

hoppala,
ich sollte den Browser doch öfter aktualisieren :oops:

Aber vielleicht noch als Hinweis:
In der Unit DateUtils sind auch einige nützliche Funktionen z.B. YearOf(now).

[SilverMoonGirl]

werd ich gleich mal nachgucken
danke@s14