Nacházíte se: WALL.czExcel návod › Vzorec na výpočet počtu pracovních dní
Kategorie: Excel návod

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

ExcelPotř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.

print Formát pro tisk

Sdílet článek:

Komentáře rss

Zasílate odpověď ke stávajícímu příspěvku (zrušit).

Nemáte oprávnění přidávat příspěvky.

Uživatelské jméno
Heslo
     

Registrace >
Ztracené heslo >


, - odpovědět
avatar
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...

Vladacitovat
icon odpověděl(a)
admin
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
citovat
odpověděl(a)
avatar
Tak na to bych asi neprisel.
Zatracene properties.
Mockrat dekuji...

VMcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje