Datum <> Jahrestag

[Vader]

hallo Noobinator,


ich will aber mit der komp. DateTimePicker arbeiten

habs so probiert:

Delphi-Quellcode:

label1.Caption := DateToStr(EncodeDateDay(DateTimePicker1.date));

mfg vader

[Fussball-Robby]

Zitat von Vader:

ich will aber mit der komp. DateTimePicker arbeiten

habs so probiert:

Delphi-Quellcode:

label1.Caption := DateToStr(EncodeDateDay(DateTimePicker1.date));

Ich dachte, du willst z.B. den 79. Tag des Jahres im DateTimePicker darstellen und nicht das Datum ausm DateTimePicker in ein Label machen DateTimePicker1.Date := EncodeDateDay(2008, 79);

[Vader]

nein,

jetzt hab ich mich vertan, ich möchte in ein editfeld den 79 tag eingeben und das datum 19.03.2008 in ein label ausgeben

mfg vader

[Vader]

hallo


habs so probiert geht aber nicht

Delphi-Quellcode:

DateTimePicker1.Date := EncodeDateDay(edit1.text);

mfg vader

[omata]

Wie wäre es so...

Delphi-Quellcode:

uses DateUtils;

:
:

function Jahrestag(Jahr, Tag:integer):TDate;
begin
  Result:=IncDay(StrToDate('1.1.' + IntToStr(Jahr)), Tag-1);
end;

Aufruf...
  ShowMessage(DateToStr(Jahrestag(2008, 79))); Edit: Ok, die Funktion EncodeDateDay macht ja genau das selbe.
Aufruf...
  ShowMessage(DateToStr(EncodeDateDay(2008, 79))); Gruss
Thorsten

[Vader]

hallo omata
ja aber ich will verschiedene jahrestage immer wieder eingeben und dafür brauche ich eine editkoponente

wie schaut das dann aus weil jetzt hast du (2008, 79)in deinem aufruf hinterlegt;

ShowMessage(DateToStr(Jahrestag(2008, 79))); wie bringe ich hier edit1.text rein ????
mfg vader

[omata]

Benutze doch die bessere Variante...

ShowMessage(DateToStr(EncodeDateDay(StrToInt(EdJahr.Text), StrToInt(EdTage.Text)))); Gruss
Thorsten

[Vader]

Danke !!!

und nochmals um Entschuldigung bin total draussen beim programmieren
mfg vader