Datum <> Jahrestag

[Vader]

hallo,

wie kann ich das programmieren?

ich habe den jahrestag zb. 79 und jetzt möchte ich wenn ich denn 79 tag eingebe das das passende datum angezeigt wird !

EINGABE: 79 Jahrestag AUSGABE: 19.03.2008

mfg vader

[sirius]

Du nimmst den TDateWert des 1.1.2008 (encodeDateTime o.ä.)addierst dazu 79-1 und fertig.

[mkinzler]

DecodeDateDay()

[marabu]

Ich hätte jetzt auf EncodeDateDay() getippt.

[Vader]

hallo

entschuldigung,bin schon lange weg vom programmieren,muß ich da die DateTimePickerkompo. auf die form ziehen
und wie schaut das aus wenn ich das über ein label ausgeben möchte ?
mfg vader

[mkinzler]

Zitat:

Zitat von marabu

Ich hätte jetzt auf EncodeDateDay() getippt.

Natürlich :oops:

[Fussball-Robby]

DateToStr()

[Vader]

hallo,

brauche ich die DateTimePickerkompo ?
mfg

[marabu]

Hallo Vader,

ob du einen DateTimePicker brauchst kannst nur du wissen.

Für die Ausgabe als Label.Caption genügt DateToStr(EncodeDateDay(Year, Day)).

Grüße vom marabu

[Noobinator]

Delphi-Quellcode:

uses DateUtils

...
label1.Caption := DateToStr(EncodeDateDay({Jahr}2008,79{Tag}));
.....