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 ?

[klaussal]

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

[klaussal]

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