Vzorec na výpočet počtu pracovních dní

Excel Potřebujete v Microsoft Excelu jednoduše zjistit počet pracovních dní mezi dvěma daty? Pracovní dny nezahrnují soboty, neděle a státem definované svátky.

Pro zjištění počtu pracovních dní mezi dvěma daty slouží vzorec NETWORKDAYS. Tento vzorec obsahuje syntaxe:

NETWORKDAYS (začátek; konec; svátky)

Začátek je počáteční datum.
Konec je koncové datum.
Svátek

Svátky je volitelný seznam kalendářních dat, která jsou vyjmuta z pracovního kalendáře (například státní a pohyblivé svátky). Tento seznam může být tvořen oblastí buněk s kalendářními daty nebo maticovou konstantou s pořadovými čísly, která představují daná kalendářní data.

Excel - vzorec na výpočet pracovních dní

Důležitá poznámka na závěr. Pokud vzorec NETWORKDAYS zobrazuje #NÁZEV?, potřebujete nainstalovat doplněk "Analytické nástroje". Doplněk nainstalujete v menu Nástroje > Doplňky > Analytické nástroje.

Autor:

Petr | Vydáno: 2.1.2009 | Přečteno: 6092x |

Tisk článku |

Pošli článek

Dotazy k článku pište do fóra s odpovídajícím tématem.

Komentáře

Přidat komentář >

vladamares - Čtenář
-
(17.6.2010 20:51) odpovědět

zdravim,

pratele nevite prosim nekdo jak zapsat workday ve VBA?

1.1.2010
workday
workday #N/A
workday
2.2.2010
workday
workday

Sub CISTKA()
For radek = 1 To ActiveSheet.UsedRange.Rows.Count
If IsError(Cells(radek, 7)) = True Then
If Cells(radek + 1, 1) = Cells(radek, 1) Then
Cells(radek + 1, 6) = Cells(radek, 1)
Rows(radek).Delete
radek = radek - 1

Else
Rows(radek).Delete
End If
End If
Next
End Sub

Takhle to funguje tak, ze to najde chybu, prepise datum a smaze radek.
Jde me o to, aby pri prepsani pouzil funkci workday, nebo prepsal bunky i s touto funkci.

Diky moc...

Vlada

odpověděl(a)
Petr - Hlavni administrátor
(18.6.2010 8:47)

Pokud chcete použít funkci ve VBA musíte v editoru maker v menu Tool / Preferences zaškrtnout 'aptvbaen.xls'. Pak lze použít funkci například takto:

Sub PRAC_DNY()

Dim D1 As Date, D2 As Date, Datum As Date
Dim Dny As Integer, pDnu As Integer

D1 = "1.1.2010"
D2 = "31.1.2010"
pDnu = 150
Dny = NETWORKDAYS(D1, D2)
Datum = WORKDAY(D1, pDnu)

Debug.Print Dny
Debug.Print Datum

End Sub