Now + x Tage ohne Wochende (Lotus Script)

[hampa]

Hallo zusammen

Auf der Suche nach einem Script-Beispiel für meine "Aufgabenstellung" im Betreff habe ich nahezu zwei Seiten Vorschläge erhalten, wie man das in der Formelsprache (@Businessdays) lösen kann.

Da ich das Ganze in einem Lotus-Script-Agent umsetzen muss, frage ich mal in die Runde, ob jemand das schon einmal mit Script gelöst hat.

Vielen Dank für eure Tips

Grüsse

Hampa

[Glombi]

Ohne @BusinessDays brauchst Du in Script eine kleine Schleife.

Du musst solange iterieren, bis x = 0 ist. In der Schleife musst Du mit AdjustDay einen Tag weiter gehen und den Weekday abfragen. Bei 1 oder 7 dann x nicht dekrementieren und zum nächsten Tag.

Andreas

[ata]

Hallo,

... mit Call notesDateTime.AdjustDay( ... ) kannst du ein Datum mit n Tagen erhalten...
... Weekday( datum) erhälst du den Wochentag als Zahl...

der Rest ist dann auf den Freitag zu berechnen.

Toni

[hampa]

@Glombi

Halli Hallo

An sowas habe ich auch schon gedacht. Ich habe mir aber fest eingeredet, dass es da etwas "einfacheres", "prozessorschonenderes" geben müsste. 

Da habe ich mich dann wohl geirrt.

Auf jedenfall vielen Dank für Deinen Hinweis

Grüsse

Hampa

[Driri]

Was spricht gegen Evaluate ?

[klauss]

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

[DerAndre]

... aus den entsprechenden Landesteilen...

[koehlerbv]

Okay, nach Feiertagen war nicht gefragt, da wird das komplexer 

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)

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 

[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. 

Grüsse

Hampa

[klauss]

Es macht's. 

[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

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

Grüsse Hampa