Új hozzászólás Aktív témák

• #25765 Fferi50 Topikgazda TrollBalint #25744

  Új Válasz 2015-03-05 21:15:44 #25765

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz TrollBalint #25744 üzenetére

  Szia!

  A #25749 hozzászólásomban levő függvény nem teljesen jó sajnos, mert nem a munkanapokat számolja, hanem csak a napokat. Javítottam, ezt próbáld meg légy szíves:

  Function munkanapos(ByVal mettol As Date, Optional hanynap As Integer) As Date
  Dim unnepek As Range, munkanap As Date, napi As Range, napok As Date, napjai As Integer
  Set unnepek = Sheet1.Range("G2:G19")
  napjai = 0
  munkanap = mettol
  Do While napjai <= hanynap
  napok = mettol + napjai
  Set napi = unnepek.Find(what:=napok, LookIn:=xlValues, lookat:=xlWhole)
  If Not napi Is Nothing Then
  If Application.Weekday(napok, vbMonday) = 6 Then
  munkanap = napok
  End If
  Else
  If Application.Weekday(napok, vbMonday) < 6 Then
  munkanap = napok
  End If
  End If
  napjai = napjai + 1
  Loop
  munkanapos = munkanap
  End Function

  Üdv.

Új hozzászólás Aktív témák