Hogyan lehet kiszámítani a húsvéti dátumot az Excelben?
Mint mindannyian tudjuk, a húsvéti ünnep mindig az első vasárnap, amely az első egyházi telihold után, amely március 21-én vagy azt követően következik be, ezért minden év húsvéti dátuma eltérő lehet, mint az alábbi képernyőképen látható. Az adott év húsvéti dátumának megszerzéséhez ez a cikk jót tehet Önnek.
Számítsa ki az adott év húsvéti dátumát képlettel
Számolja ki az adott év húsvéti dátumát a Felhasználó által definiált funkcióval
Számítsa ki az adott év húsvéti dátumát képlettel
Az adott év húsvéti dátumának megszerzéséhez a következő képlet segíthet, kérjük, tegye a következőket:
1. Írja be ezt a képletet: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 egy üres cellába az adott év mellett, B2például lásd a képernyőképet:
2. Ezután húzza le a kitöltő fogantyút azokra a cellákra, amelyekkel kiszámolni szeretné az adott dátum húsvéti dátumát, és az ötjegyű számok megjelennek a cellákban, lásd a képernyőképet:
3. Ezután formázza a számokat dátumformátumként:
(1.) Válassza ki az ötjegyű számokat, és kattintson a jobb gombbal a kiválasztáshoz Cellák formázása a helyi menüből;
(2.) Beugrott Cellák formázása párbeszédpanelen kattintson a gombra Szám Lapot, és válasszuk a lehetőséget találka tól Kategória ablaktáblán, majd válasszon egy tetszőleges dátumformátumot a jobb oldali listamezőből, lásd a képernyőképet:
4. Ezután a számokat szükség szerint dátumformátumként formázta, és megkaphatja az adott év húsvéti dátumát, lásd a képernyőképet:
tippek: Ha a számokat a szokásos dátumformátumra szeretné formázni, használhatja a Kutools for Excel alkalmazás Dátumformázás alkalmazása segédprogramját is, az alábbi képernyőképen látható módon: |
Számolja ki az adott év húsvéti dátumát a Felhasználó által definiált funkcióval
A következő Felhasználó által definiált funkció szintén segíthet egy adott év húsvéti dátumának kiszámításában.
1. Tartsa lenyomva a ALT + F11 gombokat, majd kinyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Számítsa ki az adott év húsvéti dátumát:
Public Function EasterDate(Yr As Integer) As Date
'Updateby Extendoffice 20160530
Dim x As Integer
x = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
EasterDate = DateSerial(Yr, 3, 1) + x + (x > 48) + 6 - ((Yr + Yr \ 4 + _
x + (x > 48) + 1) Mod 7)
End Function
3. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, és írja be ezt a képletet: = húsvéti dátum (A2) egy üres cellába a megfelelő adatok mellett, majd húzza lefelé a kitöltő fogantyút azokra a cellákra, amelyeken alkalmazni szeretné ezt a képletet, kap néhány ötjegyű számot, lásd a képernyőképet:
5. Ezután szükség szerint módosítsa a számokat dátum formátumra. Kérjük, tekintse át a fenti módszer 3. lépését a mai napig történő formázáshoz.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!