Jahresziffern & Jahrhundertziffern aus einer Jahreszahl

[Balu der Bär]

Moin,

ja der Titel ist etwas verwirrend, genauer gesagt geht es um folgendes:

Ich habe eine Jahreszahl, nehmen wir 2006. Jetzt möchte ich von dieser Jahres- und Jahrhundertziffern erhalten, d.h. Jahresziffern: 06 und Jahrhundertziffern: 20. Man könnte es (am Beispiel Jahresziffern) ja ganz simpel per

Delphi-Quellcode:

 temp := IntToStr(year);
 Delete(temp, 1, 2);
 yearnumbers := StrToInt(temp);

machen, ich halte diese Lösung aber für etwas unschön? Gibt es dafür schon eine fertige Funktion in Delphi oder muss ich es doch so machen?

Danke euch schonmal. :-)

[mkinzler]

Beim datumformatieren kannst du ja angeben, ob deu 4 oder 2-Stellige Jahreszahlen haben willst

[Balu der Bär]

Ich brauche wie gesagt beide Varianten, zwei- und vierstellig. Die Jahreszahl lese ich über DecodeDate direkt ein. Wie meinst du das beim Datum formatieren? :gruebel:

[negaH]

Delphi-Quellcode:

x := Jahr mod 100;
y := Jahr div 100;

PS: interessante Frage übrigens, weil du in deinem Ostersonntags Thread exakt diese Operationen benutzt hast.

Gruß Hagen

[Balu der Bär]

Da muss man erstmal drauf kommen das Jahr mod 100 ja auch den Rest des Jahres ausgibt. :wall:
Danke für den Klaps auf den Hinterkopf.