Domino 9 und frühere Versionen > ND7: Entwicklung

Now + x Tage ohne Wochende (Lotus Script)

<< < (3/3)

klaussal:
Es macht's.  :o

hampa:
@klauss

Was auch nicht anders zu erwarten war.....  ;)

hampa:
So. Hier ist meine Lösung.


--- Code: ---Function addWorkDays(iPeriod As Integer)

'// Diese Funktion zählt zum heutigen Datum die übergebenen Anzahl Tage hinzu
'// ohne das aktuelle Datum zu berücksichtigen

Dim iday As Integer

'Tagesdatum als aktuelles festlegen
Dim dateTime As New NotesDateTime( Now )

While iday < iPeriod

'Zum Datum einen Tag hinzuzählen
Call dateTime.AdjustDay(1)

'Prüfen, ob Samstag oder Sonntag
If (Weekday (dateTime.DateOnly) <> 1) And (Weekday (dateTime.DateOnly) <> 7) Then
iday = iday + 1
End If
Wend

'// Rückgabe des neuen Datums
addWorkDays = dateTime.DateOnly

End Function
--- Ende Code ---

Bitte melden, wenn ihr was findet, dass da nicht hingehört.

Grüsse Hampa

Navigation

[0] Themen-Index

[*] Vorherige Sete