Argument ist nicht optional
25.08.2004 16:49:39
Mark
ich bin hier schon am verzweifeln! Bitte helft mir...
jedes mal wenn ich diese Funktion aufrufe sagt er mir in der Zeile:
"If samstag = j And sonntag j And WeekDay(datum) = 7 Then dauer = dauer + 1
"
"Argument ist nicht optional"
Was mach ich falsch? ich rufe die Funktion so auf:
"=ANFANGSDATUM($D24;$E24;$Eingabemaske.$C$10;$Eingabemaske.$C$11)"
D24: Datum: 21.01.04
E24: Dauer: 5
Eingabemaske.C10: j
Eingabemaske.C11: j
Function Arbeitsfrei(datum As date, samstag As String, sonntag As String)
Dim dauer
REM For k = 1 To hoehe
REM For i = 1 To breite
REM If Range() = datum Then dauer = dauer + 1
REM Next
REM Next
If samstag = j And sonntag <> j And WeekDay(datum) = 7 Then dauer = dauer + 1
If sonntag = j And samstag <> j And WeekDay(datum) = 1 Then dauer = dauer + 1
If samstag = j And sonntag = j And WeekDay(datum) = 1 And WeekDay(datum) = 7 Then dauer = dauer + 2
Arbeitsfrei dauer
End Function
Function Anfangsdatum(endDatum As Date, dauer As Integer, samstag As String, sonntag As String)
Dim anfDatum
anfDatum = endDatum - dauer - 1
msgbox samstag
msgbox sonntag
REM Verschiebung des Anfangsdatums
While Arbeitsfrei(anfDatum, samstag, sonntag) <> 0
anfDatum = anfDautm - Arbeitsfrei(anfDatum, samstag, sonntag)
Wend
Nettotage = anfDatum
End Function
Anzeige