Teda nejakú funkciu použiť treba 
=A1-MOD(A1+6;7)-21
Alebo pomocou funkcie
=A1-WEEKDAY(A1)-20
V bunke A1 je dárum 24.12.20xxcitovat
=A1-MOD(A1+6;7)-21
Alebo pomocou funkcie
=A1-WEEKDAY(A1)-20
V bunke A1 je dárum 24.12.20xxcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Výpočet adventní neděle
MS Excel
Téma: Výpočet adventní neděle 
Zaslal/a Pepa-R 24.6.2013 22:54
Lze pomocí vzorce v Excelu vypočítat první adventní neděli (ne pomocí funkce, to jde). Děkuji za radu
=DATUM(G13;12;3-DENTÝDNE(DATUM(G13;12;24);2)+(DENTÝDNE(DATUM(G13;12;24);2)=7)*7)
v bunce G13 zadej rok nebo uprav vzorec
edit: vzorec pro excel 2010 !citovat
v bunce G13 zadej rok nebo uprav vzorec
edit: vzorec pro excel 2010 !citovat
14097_adventni-nedele.zipJešte jsem našel další dva vzorce, ale podle mě počítají špatně (oba stejně špatně), protože "hodí" neděli až po 3.12.xxx, což by nemělo být
=DATUM(G13;12;25)-20-DENTÝDNE(DATUM(G13;12;25))
(to je to co psal marjankaj v CZ verzi)
a
=DATUMHODN("25/12 /"&G13)-ZAOKR.NAHORU(DENTÝDNE(DATUMHODN("25/12/"&G13));7)-21+(8-DENTÝDNE(DATUMHODN("25/12/"&G13)))citovat
=DATUM(G13;12;25)-20-DENTÝDNE(DATUM(G13;12;25))
(to je to co psal marjankaj v CZ verzi)
a
=DATUMHODN("25/12 /"&G13)-ZAOKR.NAHORU(DENTÝDNE(DATUMHODN("25/12/"&G13));7)-21+(8-DENTÝDNE(DATUMHODN("25/12/"&G13)))citovat
s datem 24.12.xxxx jak psal Marjankaj (data jsem si nevšiml) je to OK.citovat
Moc děkuji za radu. Bezva funguje vzorec s odkazem na štědrý den tak i odkaz na rok. Tabulka také funguje velice dobře. Ještě jednou děkuji za radu.citovat
Vlastní funkce na výpočet první adventní je :
Public Function DateAdvent(ByVal intYear As Integer) As Date
Dim intYear1127 As Integer
intYear1127 = 7 - Weekday(DateSerial(intYear, 11, 27), vbMonday)
DateAdvent = DateSerial(intYear, 11, 27) + intYear1127
End Functioncitovat
Public Function DateAdvent(ByVal intYear As Integer) As Date
Dim intYear1127 As Integer
intYear1127 = 7 - Weekday(DateSerial(intYear, 11, 27), vbMonday)
DateAdvent = DateSerial(intYear, 11, 27) + intYear1127
End Functioncitovat
Ale to si mal napísať, že si myslel "vlastnú funkciu". Aj MOD je funkcia aj WEEKDAY.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články