Datum als int DDMMYYYY ausgeben

[himitsu]

Abgesehn vom FormatDateTime, nochmal zum ursprünglichen Problem.

Zitat von sneumann:

bei mir steht beim ausführen jedoch in dem kleinen Fenster nur 004096
DAY hat wert 0 , MONTH den wert 0 und YEar den wert 4096, WARUM ? ? was mach ich falsch?

Ja und wo hast du dein Edit2.Text := IntToStr(Day) + IntToStr(Month) + InTtoStr(Year); denn stehn?

Jedenfalls nicht in der Button1-Klickmethode. (dort wo deine Variablen deklariert sind)

Fazit: Dein Code nutzt nicht diese Variablen, sondern irgendwas Anderes.



Ach ja, IntToStr kennt keine führenden Nullen. Wenn, dann über

Zitat:

Format

und wie man die führenden Nullen einstellt, steht in der OH.

Oder Mathematisch: Edit2.Text := IntToStr(Day * 1000000 + Month * 10000 + Year); , wobei du hier auch aufpassen mußt, da ja dennoch eine 0 fehlen kann, wenn Day < 10.