Access - Vrácení hodnoty počty pracovnách dní v měsíci Vyřešeno

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

Moderátor: Mods_senior

Mates43
nováček
Příspěvky: 24
Registrován: leden 12
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod Mates43 » 17 črc 2013 11:20

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

Reklama
Uživatelský avatar
Branscombe
Level 3
Level 3
Příspěvky: 469
Registrován: červen 09
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod Branscombe » 17 črc 2013 14:39

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: leden 12
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod Mates43 » 18 črc 2013 01:23

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


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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů