• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: WORKDAY funkce v UserForm

Zaslal/a Reeds 14.2.2021 16:00

Dobry den lidi
potreboval bych pomoct s posunem datumu o ucreny pocet pracovnich dni.
v DTPicker1 bych chtel zadat datum a v druhem nebo v TextBoxu bych potreboval posum o -5 dni, ale aby to nepocitalo vikend a nejlepe i svátky.
Nevite nekdo jak by se to dalo naprogramovat?

Dekuji mnohokrat za rady.

Zaslat odpověď >

---

elninoslov(18.2.2021 14:32)#049895

Function EVAL_WORKDAY(Datum As Date, Dni As Long) As Date
Dim Rok As Long
Rok = Year(Datum)
EVAL_WORKDAY = Evaluate("=WORKDAY(" & CDbl(Datum) & "," & Dni & ",DATEVALUE(MID(SUBSTITUTE(""01/01*""&TEXT(DOLLAR((""4/""&" & Rok & ")/7+MOD(19*MOD(" & Rok & ",19)-7,30)*14%,)*7-5,""mm/dd"")&""*05/01*05/08*07/05*07/06*09/28*10/28*11/17*12/24*12/25*12/26*"",""*"",""/""&" & Rok & "),(ROW(1:12)-1)*10+1,10)))")
End Functioncitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse