Date - 1 Monat oder 30 Tage... wie?

[NiLS-Da-BuBi]

Aaaalso mal wieder ein grande Problem... für mich. Ich lasse neben meinem Programm ein kleines Fenster anzeigen. Hier hab ich nun drei MonthCalendar drin - Wie man das so kennt einer für den Vormonat - der aktuelle Monat und der folgemonat.

So nun das Problem - wie setze ich den Vormonatskalendar einen Monat vor?! - Ich dachte mir ich nehm das aktuelle Datum minus einen Monat... oder minus 30 tage... Aber wie kann ich mit dem Date Datentyp rechnen?

Hab mal im Forum nach Date minus 30 Tage einen monat ect. gesucht aber nichts brauchbares gefunden.

Danke schon mal.

[MrSpock]

Hallo Nils,

TDateTime ist ein Float, dessen ganzzahliger Anteil die Tage seid irgendeinem Anfangsdatum (30.12.1899) angibt. Das heißt: Rechnen ist da ziemlich einfach:

Code:

LetzterTagDesVormonats := EncodeDate(2002, 12, 1) -1;

Ist der 30.11.2002.

[NiLS-Da-BuBi]

Waaaah... Danke. Die DecodeDate und EncodeDate funktion hab ich gerade gefunden und war schon schwer damit beschäftigt das aktuelle Datum zu dekodieren und dann Monat - 1 - neu encodieren und hin und her... typen umwandlung bla bla...

Viel leichter so :P - Danke nochmal.

[mika]

[edit]
ich glaub ich tipp zu langsam, die anderen antworten waren
am anfang noch nicht da :), naja such dir einfach einen
weg aus. ich halte von minus 30 nicht so bei date weil du damit
den tag veränderst. ausserdem wenn du den 31. eines Monats
hast landest du auf dem ersten des selben monats. kannst ja
einfach mit allen ethoden ein wenig rumprobieren.
[/edit]

Hallo, mit dem Datentyp TDate kannst du genau so rechnen wie mit dem
Typ Integer z.B. Du kannst von der Eigenschaft Date deines jetzigen einfach 30 abziehen und landest 30 Tage in der vergangenheit.

Besser ist es aber wenn du dein aktuelles Datum mittels DecodeDate
in die einzelnen Teile zerlegst, den Monat um 1 verringerst, ggf. das
Jahr und den Tag anpasst und mittels EncodeDate das ganze wieder
zusammenschusterst.



ungefähr so.
var
Jahr, Monat, Tag : Word;
Datum : TDate;

decodedate(heutekalender.date,Jahr,Monat,Tag);
If Monat > 1 then
Monat := Monat - 1
else
begin
Monat := 12;
Jahr := Jahr - 1;
end;
IF Tag > DaysInAMonth(Jahr, Monat) then
Tag := DaysInAMonth(Jahr, Monat);
Datum := EncodeDate(Jahr, Monat, Tag);
Vormonatskalender.date := Datum


ich hoffe ich konnte ein wenig helfen,

mfg, Michael.

[NiLS-Da-BuBi]

Wahnsinn das ist ja noch viel geiler! Danke Michael - das kann ich ja fast 1:1 übernehmen... werds gleich mal ausprobieren!

[mika]

man hilft wo man kann, viel spaß damit.
kannst das ja auch für deinen nachfolgekalender verwenden.
musst nur den monatsteil tauschen:

If Monat < 12 then
Monat := Monat + 1
else
begin
Monat := 1;
Jahr := Jahr + 1;
end;

viel spaß und immer schön cremig bleiben!

mfg, michael :]

[NiLS-Da-BuBi]

Ein wenig verspätet aber nochmal Danke hat mir geholfen.