Incday kann falsches Datum liefern

[olaf]

Hallo,

bin hier in eine ganz üble Falle beim Verringern des Datums getappt.

dat:=StrToDate('26.12.2010');
ShowMessage(DateToStr(incday(dat,-7))); //richtig 19.12.2010

Das Komma vor der -7 kann man sehr schnell vergessen, weil auch kein Fehler erscheint. Ist syntaktisch auch korrekt. Nur dann wird dat-7 gerechnet und incday erhöht um einen Tag.

Ergibt den 20.12.2010 was ich eigendlich nicht wollte.

olaf

[Uwe Raabe]

Zitat:

Zitat von olaf (Beitrag 1069796)

Das Komma vor der -7 kann man sehr schnell vergessen

So gesehen solltest du den Beitragstitel aber anders formulieren...

[Deep-Sea]

Bei

Code:

(a + b) * c

kann man auch schnell mal die Klammern vergessen und so das falsche raus bekommen :roll: GIGO halt.

[Bummi]

Der Sinn von IncYear und IncMonth erschließt sich mir, aber IncDay ....

[DeddyH]

Sonst wäre die Unit so unvollständig ;)

[Deep-Sea]

Dann ist die Funktion Inc genau so sinnlos :P

[Wolfgang Mix]

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;

[Deep-Sea]

@Wolfgang Mix:
Ähm ja, und was bringt uns dein Post nun? :roll:

[DeddyH]

Erklärt zumindest, wieso die Syntax auch ohne Komma gültig ist :mrgreen:

[Wolfgang Mix]

... sonst nimm einfach die Funktion adddate aus meinen dateutils2 :-)
http://www.delphipraxis.net/141399-d...unktionen.html

[Bummi]

@Deep-Sea
Inc und IncDay unterscheiden sich zum Vorteil von Inc

Delphi-Quellcode:

Inc(i); 
// vs i := i + 1;

d := IncDay(Date);
// vs d := Date + 1;

;-)

[mkinzler]

Oder man zählt einfach die gewünschte Anzahl Tage hinzu oder zieht diese ab

[Wolfgang Mix]

eben :-)