Domino 9 und frühere Versionen > ND7: Entwicklung

Now + x Tage ohne Wochende (Lotus Script)

<< < (2/3) > >>

klaussal:
... und wie berücksichtigt er die Feiertage ?

DerAndre:
... aus den entsprechenden Landesteilen...

koehlerbv:
Okay, nach Feiertagen war nicht gefragt, da wird das komplexer  ;D

Man muss sich aber nicht unbedingt mit NotesDateTime einen abquälen - das Datum ist ja nur eine Zahl:

--- Code: --- Dim vDate As Variant
Dim vEndDate As Variant
Dim iPeriod As Integer
Dim iWorkingDays As Integer

iPeriod = 10
vEnddate = Now + iPeriod
iWorkingDays = 0

For vDate = Now To vEndDate
If (Weekday (vDate) <> 1) And (Weekday (vDate) <> 7) Then
iWorkingDays = iWorkingDays + 1
End If
Next

Messagebox "Arbeitstage in den nächsten " & Cstr (iPeriod) & " Tage: " & Cstr (iWorkingDays)
--- Ende Code ---

Achtung: Hierbei wird der aktuelle Tag mitgezählt, ansonsten müsste es heissen: Now + 1 To vEndDate + 1.

HTH,
Bernhard

Glombi:
Irgendwie kann ich mich des Eindrucks nicht erwehren, dass Du etwas gegen NotesDateTime hast  ;D

hampa:
Hallo zusammen

Vielen Dank für eure wertvollen Hinweise.

Ich bau das Codebeispiel von Bernhard und melde mich dann nocheinmal, ob es das macht, was ich will das es macht.  ;D

Grüsse

Hampa

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete