Delphi-PRAXiS - Delphi DecMonth Funktion gesucht

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)

- - Delphi DecMonth Funktion gesucht (https://www.delphipraxis.net/167495-decmonth-funktion-gesucht.html)

devidespe

2. Apr 2012 11:37

DecMonth Funktion gesucht

Hi,

die Unit SysUtils.pas enthält ja die Funktion IncMonth, mit der eine TDateTime-Variable um einen Monat erhöht werden kann. Dabei wird auch das Jahr angepasst, falls der in der Variable gespeicherte Monat der Dezember ist. Das gleiche suche ich nun, um eine TDateTime-Variable um einen Monat zu verringern. Leider liefert weder die Hilfe, noch die Units SysUtils und DateUtils was passendes.

Kennt jemand eine Implementation dieser Funktion?

Danke für die Hilfe.

mkinzler

2. Apr 2012 11:47

AW: DecMonth Funktion gesucht

Einfach IncMonth() mit negativen Wert aufrufen

himitsu

2. Apr 2012 12:50

AW: DecMonth Funktion gesucht

Jupp.

IncMonth

Zitat:

IncMonth returns the value of the Date parameter, incremented by NumberOfMonths months. NumberOfMonths can be negative, to return a date N months previous.

IncMonth liefert den Wert des Parameters Date zurück, der um die Anzahl der in NumberOfMonths angegebenen Monate erhöht wurde. Wird mit NumberOfMonths ein negativer Wert übergeben, gibt die Prozedur ein entsprechend früheres Datum zurück.

devidespe

2. Apr 2012 12:57

AW: DecMonth Funktion gesucht

Okay danke, das hatte ich wohl überlesen.

Alle Zeitangaben in WEZ +1. Es ist jetzt 15:01 Uhr.