Zjištění počtu pracovních dnů

Function getBusDays(SDate As Date, EDate As Date) As Integer
   Dim tmpDay As Integer
   getBusDays = 0
   Do Until SDate = EDate
      tmpDay = Format(SDate, "w")
      Select Case tmpDay
      Case 2, 3, 4, 5, 6
         getBusDays = getBusDays + 1
      End Select
      SDate = DateAdd("d", 1, SDate)
   Loop
End Function

Do formuláře přidejte tlačítko a na jeho událost click:

Private Sub Comamnd1_Click()
   Call getBusDays(09.09.98,16.09.98)
End Sub

Spusťte projekt a klikněte na tlačítko.

Zpět