dato plus 90 dage

Showmessage(DateToStr(Now+90));

Snowball

IncDate(Now,90);

Jeg fandt selv løsningen.

Det var ikke dagsdato men en skrivende dato...
EDit1.Text := DateToStr(DateTimePicker1.Date +90);

Er det ok at vi deler???

bramsing: Now skal jo bare byttes ud med din DateTime variabel. Now var bare for at vise et eksempel.

Snowball

Principielt set bør du jo uddele alle point til den der har besvaret dit spørgsmål, da det jo er "for let" at komme bagefter og sige man selv har fundet den samme løsning ;)

Snowball

Oh well, sådan kan man også gøre ;)

Snowball

Er dette ok??? jeg har givet jer begge 15 point...

//'bramsing'

lige bortset fra at JEG ville vælge min løsning da den tager høje for md. skift osv ( 30/31 dage )

martinlind: Har du et eksempel hvor min løsning ikke virker? De par tests jeg lige prøvede regnede rigtigt nok.

Snowball

umidelbart kan du jo ikke bare lægge 90 dage til en dato, det er vel også derfor delphi har incdate funtionen

Både ja og nej. Man kan jo sagtens lægge x antal til en integer variabel uden at bruge Inc(x[,y]); IncDate er vel, ligesom Inc, bare lavet til at gøre det lidt lettere !? :)

Snowball

martinlind -> Har du kigget på, hvordan TDate (der er en TDateTime) virker?

Prøv lige at kigge, så vil du opdage, at du i netop denne sammenhæng ikke skal bekymre dig om måndeder :-)

Og lige en lille funktion jeg en gang skrev for sjov:

const
  diwMon = 1;
  diwTue = 2;
  diwWed = 3;
  diwThu = 4;
  diwFri = 5;
  diwSat = 6;
  diwSun = 7;

function DayInWeek(Date: TDateTime; StartDay: Integer = diwMon): Integer;
begin
  StartDay := StartDay - 1;
  if Date > 0 then
    Result := ((Trunc(Date) - 1) mod 7) - StartDay
  else
    Result := (7 - (((ABS(Trunc(Date))) mod 7))) - (StartDay + 1);
  if Result < 1 then
    Result := 7 + Result;
end;