Access - Vrácení hodnoty počty pracovnách dní v měsíci

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Zamčeno
Mates43
nováček
Příspěvky: 24
Registrován: 24 led 2012 22:11

Access - Vrácení hodnoty počty pracovnách dní v měsíci

Příspěvek od Mates43 »

Zdravim,
existuje v Accessu nějaká funkce, která vám spočte počet pracovních dnů v měsíci?
Jako například v Excelu se dá použít funkce NETWORKSDAY.
Případně jestli s tím nemá někdo v Accessu zkušenosti a nechtěl by mi poradit :-)
S pozdravem, Mates
Uživatelský avatar
Branscombe
Level 3
Level 3
Příspěvky: 469
Registrován: 11 čer 2009 21:39

Re: Access - Vrácení hodnoty počty pracovnách dní v měsíci

Příspěvek od Branscombe »

Co třeba takhle ?

Kód: Vybrat vše

Public Function WorkingDays(StartDate As Date, EndDate As Date) As Integer
    Dim Exl As Object
    Set Exl = CreateObject("Excel.Application")
    WorkingDays = Exl.WorksheetFunction.NetWorkdays(StartDate, EndDate)
    Set Exl = Nothing
End Function
Mates43
nováček
Příspěvky: 24
Registrován: 24 led 2012 22:11

Re: Access - Vrácení hodnoty počty pracovnách dní v měsíci

Příspěvek od Mates43 »

Wow, no tak to je paráda. To jsem netušil, že se dá takto propojit i s excelem :) Díky
Zamčeno

Zpět na „Kancelářské balíky“