Hi,
ich habe ein kleines Problem und hoffe das mir hier jemand helfen kann.
Es geht um folgendes:
Ich habe einen Agenten, der sich ein Datum holt und solange 2 Monate draufzählt, bis das Datum in der Zukunft liegt.
Soweit sogut...
Jetzt ist mir aufgefallen das in meinem Script im Februar ein Fehler auftritt.
Beispiel:
StartDatum: 31.12.2004
+ 2 Monate = 28.02.2005
+ 2 Monate = 28.04.2005 (statt 30.04.2005!!!)

Hier ist mal ein Teil aus dem Agenten:
If Status = "läuft" And Cdat(AblaufKD.DateOnly) < Today And TurnusAktiv = "ja" Then
Dim Ablauf As New NotesDateTime(Cstr (doc.datVTAblauf(0)))
Do Until Cdat(Ablauf.DateOnly) > Today
Turnus = Cint(doc.numVTKuendTurnus(0))
Call Ablauf.AdjustMonth(Turnus)
doc.datVTAblauf = Ablauf.DateOnly
Ablaufdatum = Ablauf.DateOnly
Loop
End If
Bitte helft mir

Danke