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}));
.....

[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:

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 :gruebel:

Delphi-Quellcode:

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...

Delphi-Quellcode:

  ShowMessage(DateToStr(Jahrestag(2008, 79)));

Edit: Ok, die Funktion EncodeDateDay macht ja genau das selbe.
Aufruf...

Delphi-Quellcode:

  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;

Delphi-Quellcode:

ShowMessage(DateToStr(Jahrestag(2008, 79)));

wie bringe ich hier edit1.text rein ????
mfg vader

[omata]

Benutze doch die bessere Variante...

Delphi-Quellcode:

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

Gruss
Thorsten

[Vader]

Danke !!!

und nochmals um Entschuldigung bin total draussen beim programmieren
mfg vader