Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Anzahl Monat als Differenz zwischen zwei Datümern ermitteln


wannaevil - Mi 17.03.04 16:58
Titel: Anzahl Monat als Differenz zwischen zwei Datümern ermitteln
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 - Mi 17.03.04 20:35
Titel: Re: Anzahl Monat als Differenz zwischen zwei Datümern ermitt
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 - Mi 17.03.04 20:46

Datümer :-) Geile Wortshöpfung !!!! :-)

Catweasel

ps:

Das/ein Datum -Singular
Die Daten - Plural


maximus - Mi 17.03.04 22:27

Ich sag nur...


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


...wird deine not lindern :D


wannaevil - Mo 22.03.04 11:40
Titel: MonthsBetween()
Coole Funktion - nur leider gibts die unter Delphi5 net. :-(


maximus - Mo 22.03.04 13:00

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


wannaevil - Do 25.03.04 09:45
Titel: daysbetween
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


Chatfix - Do 25.03.04 16:44

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