Anzahl Monat als Differenz zwischen zwei Datümern ermitteln

wannaevil · Hält's aus hier Beiträge: 4 WinXP D3 CS, D5 Prof

Hi,
kennt jemand eine einfache und richtige Art,
wie man die Anzahl an Monaten, die zwischen
2 Datümern liegen, ermittelt?

Machs bisher mit einer Schleife, in der eine Variable
'AnzahlMonate' hochgezählt wird, und per IncMonth()
die Schleifenvariable erhöht wird.

Gibts da nicht etwas besseres?

Thanx

Anfänger · Beiträge: 128 WinXP D3 Prof

Du meinst, dass du ein datum z.B. 19.02.2004 und ein zweites z.B. 01.05.2004 hast,
und willst nun wissen wieviele Monate dazwischen liegen. Richtig?
Dann kannst du einfach die Monate von den Daten mit "FormatDateTime" herausfiltern und einander subtrahieren.
Dies ist natürlich sehr grob, da hier die Tage nicht einbezogen sind.

catweasel · Verfasst: Mi 17.03.04 20:46

Datümer

Geile Wortshöpfung !!!! :-)

Catweasel

ps:

Das/ein Datum -Singular
Die Daten - Plural

_________________
Pommes werden schneller fertig wenn man sie vor dem Frittieren einige Minuten in siedendes Fett legt.

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

Ich sag nur...

markieren

Quelltext

1:	function MonthsBetween(const ANow, AThen: TDateTime): Integer;

...wird deine not lindern

_________________
mfg.
mâximôv

wannaevil · Hält's aus hier Beiträge: 4 WinXP D3 CS, D5 Prof

Coole Funktion - nur leider gibts die unter Delphi5 net. :-(

_________________
Who the f*** needs C?

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

Sorry...das tut mir leid! Hast du denn daysBetween?

_________________
mfg.
mâximôv

wannaevil · Hält's aus hier Beiträge: 4 WinXP D3 CS, D5 Prof

Nö, DaysBetween() find ich auch net.

Hab mir zwischenzeitlich damit beholfen, dass ich kurz per SQL-Statement die Differenz ermittle (dort gibts ne Funktion).

Thanx

_________________
Who the f*** needs C?

Chatfix · Verfasst: Do 25.03.04 16:44

Ähm du hast aber die Unit DateUtils eingebunden?
Denn die Between-Funktionen kommen von da...

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme