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