title image


Smiley Re: NETWORKDAYS
Solange sich keine Simple Lösung findet habe ich folgende Function gefunden:



Private Function DateDiffW(StDateValue, EndDateValue)

For i = StDateValue To EndDateValue

If (Weekday(i) 1) And (Weekday(i) 7) Then

WorkingDaysValue = WorkingDaysValue + 1

End If

Next

DateDiffW = WorkingDaysValue

End Function



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: