asi takto (vlozi do bunky A2:
Range("a2").Formula = "=DOLLAR((""4/""&A1)/7+MOD(19*MOD(A1,19)-7,30)*14%,)*7-5"citovat
Range("a2").Formula = "=DOLLAR((""4/""&A1)/7+MOD(19*MOD(A1,19)-7,30)*14%,)*7-5"citovat
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: velikonoce ve VBA
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: velikonoce ve VBA 
Zaslal/a zdena 20.4.2011 16:40
Prosím, může mi někdo pomoci napsat vzorec pro stanovení velikonoc v modu pro VBA. Uvedený vzorec pro výpočet "KČ(("4/"&A1)/7+MOD(19*MOD(A1;19)-7;30)*14%;)*7-5" pracuje pouze v Excelu, nevím si rady jak jej převést do VBA, abych jej mohla použít.
Děkuji všem 
Uzamčeno - nelze přidávat nové příspěvky.Asi jsem se špatně vyjádřila. Ten výpočet má proběhnout v makru VBA, NE jej vložit jako funkci do sešitu. Režim MOD je ve VBA zcela jiný a ať laboruji, stejně se mi to nedaří sestavit. Děkuji za pomoc
citovat
citovatuf, co takhle?
Sub VELIKONOCE()
Dim ROK As Long
Dim VELIKONOCE As Double
ROK = 2011
VELIKONOCE = Round((DateSerial(ROK, 4, 1) / 7 + ((19 * (ROK Mod 19) - 7) Mod 30) * 0.14)) * 7 - 5
MsgBox Format(VELIKONOCE, "dd.m.yyyy")
End Subcitovat
Sub VELIKONOCE()
Dim ROK As Long
Dim VELIKONOCE As Double
ROK = 2011
VELIKONOCE = Round((DateSerial(ROK, 4, 1) / 7 + ((19 * (ROK Mod 19) - 7) Mod 30) * 0.14)) * 7 - 5
MsgBox Format(VELIKONOCE, "dd.m.yyyy")
End Subcitovat
Bylo by to super, jenže každých 19 let se výpočet proti vzorci v Excelu liší, počínaje r.1919 až 2033 atd. Kdy byly velikonoce v r.1957 pro kontrolu nezjistím. Kde je chyba?
Nicméně děkuji za ten vzoreček, je funční! Zda je výpočet správný; na tom se nyní pracuje.
Ještě jednou díky za ochotu a hlavně rychlost.
S úctou Zdena
citovat
Nicméně děkuji za ten vzoreček, je funční! Zda je výpočet správný; na tom se nyní pracuje.
Ještě jednou díky za ochotu a hlavně rychlost.
S úctou Zdena
citovatTak jsem to našla!
http://cs.wikipedia.org/wiki/V%C3%BDpo%C4%8Det_data_Velikonoc
Zde je ta zmínka 19ti let. stejně děkuji POKImu za vše, je nejlepší a ráda koukám na jeho rady.
Díky Zdena
citovat
http://cs.wikipedia.org/wiki/V%C3%BDpo%C4%8Det_data_Velikonoc
Zde je ta zmínka 19ti let. stejně děkuji POKImu za vše, je nejlepší a ráda koukám na jeho rady.
Díky Zdena
citovatJeště jednou Vám chci poděkovat za pomoc.
Proč jsem potřebovala pořešit ty Velikonoce Vám jako můj soubor přikládám. Doslova mne to irituje, že si nevím rady jak ten výraz správně napsat ve VBA, bo v Excelu ten vzoreček pracuje O.K. a je malý, řeší i těch zmíněných 19 let. Budete-li mít náladu mrkněte na ten soubor
Proč jsem potřebovala pořešit ty Velikonoce Vám jako můj soubor přikládám. Doslova mne to irituje, že si nevím rady jak ten výraz správně napsat ve VBA, bo v Excelu ten vzoreček pracuje O.K. a je malý, řeší i těch zmíněných 19 let. Budete-li mít náladu mrkněte na ten soubor
Příloha: 
4777_kalendar02.zip (31kB, staženo 81x)
citovat4777_kalendar02.zip (31kB, staženo 81x)Abych rekl pravdu, tak se mi do toho nechce moc zavredavat (a studovat historii Velikonoc ).
Nekde jsem vygooglil funkci, ktera Velikonoce pocita (je z United States Naval Observatory) a udelal zakladni kontrolu (jestli vychazi na pondeli
).
Zkuste se na to podivat, treba vam to pomuze
Jinak musim rict, ze se mi moc libi vas Kalendar - ocenil bych, jestli byste mi mohla poslat hotovou verzi - pokud bych ji teda mohl vyuzit...
).Nekde jsem vygooglil funkci, ktera Velikonoce pocita (je z United States Naval Observatory) a udelal zakladni kontrolu (jestli vychazi na pondeli
).Zkuste se na to podivat, treba vam to pomuze
Jinak musim rict, ze se mi moc libi vas Kalendar - ocenil bych, jestli byste mi mohla poslat hotovou verzi - pokud bych ji teda mohl vyuzit...
Příloha: 4782_velikonoce.zip (13kB, staženo 71x)
citovat4782_velikonoce.zip (13kB, staženo 71x)(22.11.2011 4:22)#006521
'VROK = VELIKONOČNÍ ROK
X = VROK - 19 * Int(VROK / 19)
X = 234 - 11 * X
X = X - 30 * Int(X / 30)
X = ((Int(((DateSerial(VROK, 4, X)) / 7) + 0.5)) * 7) - 5citovat
X = VROK - 19 * Int(VROK / 19)
X = 234 - 11 * X
X = X - 30 * Int(X / 30)
X = ((Int(((DateSerial(VROK, 4, X)) / 7) + 0.5)) * 7) - 5citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
VBA - Automatické přidání a pojmenování listů
CePino • 3.5. 21:33
VBA - Automatické přidání a pojmenování listů
elninoslov • 3.5. 18:50
VBA - Automatické přidání a pojmenování listů
CePino • 3.5. 16:33
VBA - Automatické přidání a pojmenování listů
elninoslov • 3.5. 12:04
VBA - Automatické přidání a pojmenování listů
CePino • 2.5. 22:52
Určení kraje dle databáze PSČ na základě adresy
elninoslov • 30.4. 13:49
Určení kraje dle databáze PSČ na základě adresy
Pepepe • 30.4. 11:45
RSS nejnovější články