---

Jeg har fået en opgave (sikkert ret simpel) som jeg ikke lige
kan overskue. Jeg skal lave et lille program hvor jeg skrive datoen idag
ind, og skal så lægge x antal dage oven i datoen. Feks 06.03.2001 +
78 dage. Hvilken dato er det så om 78 dage. Hvordan klare jeg det,
da der ikke er et lige antal dage i hver måned ??

---

Jeg har lavet en knap på en form der kan det !

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(datetostr(date+78));
end;

Hilsen AHJ
"-= Texas =-" <box2600@XXXhotmail.com> skrev i en meddelelse
news:98391t$2nnt$1@news.cybercity.dk...
> Jeg har fået en opgave (sikkert ret simpel) som jeg ikke lige
> kan overskue. Jeg skal lave et lille program hvor jeg skrive datoen idag
> ind, og skal så lægge x antal dage oven i datoen. Feks 06.03.2001 +
> 78 dage. Hvilken dato er det så om 78 dage. Hvordan klare jeg det,
> da der ikke er et lige antal dage i hver måned ??
>
>

---

Som du selv siger er det faktisk ret simpelt.

Du starter med at tage datoen ind fra din editboks.
Derefter omdanner du den til TDateTime (EncodeDate), hvilket kræver
at datoen er indtastet i et format du er sikker på.
Det kan godt kræve lidt arbejde, medmindre du bruger en
TMaskEdit.

Derefter ligger du 78 til den værdi som din TDateTime har og
sender den tilbage, f.eks. med en DateToStr.

Mvh
Thomas Due

"-= Texas =-" <box2600@XXXhotmail.com> wrote in message
news:98391t$2nnt$1@news.cybercity.dk...
> Jeg har fået en opgave (sikkert ret simpel) som jeg ikke lige
> kan overskue. Jeg skal lave et lille program hvor jeg skrive datoen idag
> ind, og skal så lægge x antal dage oven i datoen. Feks 06.03.2001 +
> 78 dage. Hvilken dato er det så om 78 dage. Hvordan klare jeg det,
> da der ikke er et lige antal dage i hver måned ??
>
>