Problem mit AddDate()

[Käthe]

Hallo zusammen!

Schreibe gerade an einem Zinsrechner. Dabei soll für den jeweiligen Zahlungstermin das Datum ausgegeben werden. Das heißt, zu dem angegebenen Startdatum müssen je nachdem 1,3, 6 oder 12 Monate addiert werden. Der folgende Code für die halbjährlichen Termine
v_datum = FormatDate("%dd.%mm.%yyyy",AddDate(v_datum,#PB_Date_Month,6))
liefert bei dem Startdatum 01.01.2000 die folgende Datumsangaben zurück
30.06.2000
30.12.2000
29.06.2001
29.12.2001
28.06.2002 usw.
Eigentlich wollte ich sowas wie 01.07. und 01.01. für jedes Jahr haben.
Bei Schritten von einem und drei Monaten dasselbe Problem. Nur ein ganzes Jahr läßt sich fehlerlos addieren.
Habe dazu nirgendwo Infos gefunden. Und hoffe, daß ich nicht nur einfach zu doof bin

Freue mich auf eure Hilfe!!!

Viele Grüße,
Käthe

[ChaOsKid]

hi Käthe,

vielleicht hilft dir das weiter:

Code: Alles auswählen

datum$ = "01.01.2000"
Repeat
  Debug datum$
  datum$ = FormatDate("%dd.%mm.%yyyy",AddDate(ParseDate("%dd/%mm/%yyyy", datum$),#PB_Date_Month,6))
  Delay(1000)
ForEver

mfG
Tobi

[Maurizio555]

Hallo Kähte!
Ich mußte auch Rechnungen mit Datumsangaben anstellen (Addieren, Subtrahieren, usw.).
Habe dazu 3 Procedures geschrieben, wenn du sie noch brauchst, maile mir einfach.
Gruß
Maurizio