MS Excel

Téma: VBA připočtení jen pracovních dnů

Zaslal/a Vaclav65 21.5.2013 9:17

Ahoj, řeším problém, kdy bych pomocí VBA potřeboval k buňce M12, která obsahuje datum, třeba 15.3.2013 přičíst počet dní v buňce N12, například 30, aby to však vynechalo víkendy a těch 30 bylo jen pracovních dnů...lze to vůbec nějak vymyslet?

Díky moc za nápady...

Uzamčeno - nelze přidávat nové příspěvky.

Palooo(21.5.2013 10:01)#013396

pisal som to na rychlo nemam to skontrolovane ale asi takto:

Sub test()
Dim x As Integer
Dim y As Integer
Dim aFinish As Boolean
Dim aOutput As String

x = 1
y = 1
Do While aFinish > True
aOutput = Cells(12, 13) + x
x = x + 1
If Weekday(aOutput, 2) <> 6 And Weekday(aOutput, 2) <> 7 Then y = y + 1
If y = 30 Then aFinish = True
Loop
Cells(12, 14) = aOutput

End Sub

eLCHa(21.5.2013 15:07)#013397

cdate(WorksheetFunction.WorkDay(cdate("15.3.2013"), 30))
resp.:

cdate(WorksheetFunction.WorkDay(Range("M12").Value, Range("N12").Value))

Pomocí WorkDay lze řešit i svátky - viz nápověda

marjankaj(21.5.2013 16:25)#013398

@eLCHa
Paráda.

Vaclav65(23.5.2013 10:27)#013416

Super, díky moc!

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.