title image


Smiley Re: Anzahl Wochentage zwischen 2 Daten
Hi,



ich denke, dass sich das mit der Woche * 5 realisieren lässt:





Private Function GetWorkDays(Byval sBeginDay As String, Byval sEndDay As String) As Long)

Dim m As Long

m = 1

If WeekDay(sBeginDay, vbMonday) > 5 Then m = 0

GetWorkDays = ((DateDiff("w", sBeginDay, sEndDay, vbMonday) + m) * 5)

End Function

Programmierst Du noch frei oder wirst Du schon von Microsoft verwaltet ( .NET)?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: