---

Hej NG!

Jeg skal lægge nogle dage (op til 85) til en dato og derefter have
resultatet som en ny dato. Der skal selvfølgelig også være checket for at
det er korrekt datoformat.

Er der nogen af jer, der kender et eller andet sted man lige kan få en sådan
rutine foræret eller har I selv en på lager?

Mvh Kurt

---

Fra det interne lager (hovedet):

var
d: Tdate;
begin
d:= date; // idag
d:= d+85; // 85 dage senere
writeln(datetostr(d)); // udskriv ny dato
end;

hilsen
Uffe


"Kurt Guldbæk" <kurt_g@guldbaek.net> wrote in message
news:40f26a2c$0$303$edfadb0f@dread16.news.tele.dk...
> Hej NG!
>
> Jeg skal lægge nogle dage (op til 85) til en dato og derefter have
> resultatet som en ny dato. Der skal selvfølgelig også være checket for
at
> det er korrekt datoformat.
>
> Er der nogen af jer, der kender et eller andet sted man lige kan få en
sådan
> rutine foræret eller har I selv en på lager?
>
> Mvh Kurt
>
>

---

"Uffe Kousgaard" <look_at_www.routeware.dk> wrote in message
news:40f2703c$0$166$edfadb0f@dtext01.news.tele.dk...
> Fra det interne lager (hovedet):
>
> var
> d: Tdate;
> begin
> d:= date; // idag
> d:= d+85; // 85 dage senere
> writeln(datetostr(d)); // udskriv ny dato
> end;
>
> hilsen
> Uffe
>
Det var lige den rette!
Tak.
/Kurt

---

"Kurt Guldbæk" <kurt_g@guldbaek.net> wrote in message news:<40f26a2c$0$303$edfadb0f@dread16.news.tele.dk>...
> Hej NG!
>
> Jeg skal lægge nogle dage (op til 85) til en dato og derefter have
> resultatet som en ny dato. Der skal selvfølgelig også være checket for at
> det er korrekt datoformat.
>
> Er der nogen af jer, der kender et eller andet sted man lige kan få en sådan
> rutine foræret eller har I selv en på lager?
>
> Mvh Kurt

Hej Kurt,

Hvis du bruger Delphi forholder det sig så heldigt, at dens
"TDateTime" type faktisk bare er en real. Hvis du lægger 85 til en
variabel af denne type vil du lægge 85 dage til den.

Nicolai