Hallo,
ich vversuche gerade die Anzahl an Tagen - 1 zu ermitteln ich dachte ich mache das folgendermaßen
Dim i As Integer
Dim j As Integer
i=0
Set ndttmp = New NotesDateTime(Cstr(uidoc.Fieldgettext("vom_1")) + " 08:00")
Set ndttmp2 = New NotesDateTime(Cstr(uidoc.FieldGetText("bis_1")) + " 08:00")
REM Anzahl Tage-1 ermitteln
i=Cint((ndttmp2.DateOnly-ndttmp.DateOnly)/1000000)
aber er scheint ein problem zu haben bei Monatsübergängen...
ist die funktion falsch angewendet?
Dim ndt_a As Integer
Dim ndt_e As Integer
dim diff as long
Set ndt_a = New NotesDateTime(Cstr(uidoc.Fieldgettext("vom_1")))
Set ndt_e = New NotesDateTime(Cstr(uidoc.Fieldgettext("bis_1")))
Call ndt_a.SetAnyTime
Call ndt_e.SetAnyTime
diff = ndt_e.TimeDifference(ndt_a)dann noch in Tage umrechnen und einen Tag abziehen.
Gruß
Dirk
also Timedifference errechnet bei mir gar nichts
diff ist = 0
was steht denn in den Feldern vom_1 und bis_1?
Schalte mal den Debugger an und prüfe was in ndt_a und ndt_e steht.
Gruß
Dirk
hat sich schon gelöst....war ein versehen meinerseits...
danke
Irgendwie sind mir das zu viele Zeilen Code ...
Gleiches tut:
Dim lDiff as Long
lDiff = Int ((doc.bis_1 (0) - doc.vom_1 (0)))
Was hingegen fehlt: Mit Isdate sollte man vorher abfragen, ob in den Feldern überhaupt gültige Datumsangaben stehen - sonst gibt es Fehler wie #13 oder #184.
Bernhard