Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menghitung tanggal Paskah di Excel?

doc menghitung tanggal paskah 1

Seperti kita ketahui bersama, hari raya paskah selalu merupakan hari minggu pertama setelah bulan purnama gerejawi pertama yang terjadi pada atau setelah tanggal 21 Maret, sehingga tanggal paskah setiap tahunnya mungkin berbeda tanggal seperti gambar berikut. Untuk mendapatkan tanggal Paskah tertentu pada tahun tertentu, artikel ini mungkin bisa membantu Anda.

Hitung tanggal Paskah tahun tertentu dengan rumus

Hitung tanggal Paskah tahun tertentu dengan Fungsi Buatan Pengguna


panah gelembung kanan biru Hitung tanggal Paskah tahun tertentu dengan rumus

Untuk mendapatkan tanggal Paskah pada tahun tertentu, rumus berikut dapat membantu Anda, lakukan hal berikut:

1. Masukkan rumus ini: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 ke dalam sel kosong di samping tahun yang Anda berikan, B2, misalnya, lihat tangkapan layar:

doc menghitung tanggal paskah 2

2. Kemudian seret gagang isian ke sel yang ingin Anda hitung tanggal Paskah dari tanggal yang ditentukan, dan angka lima digit ditampilkan di sel, lihat tangkapan layar:

doc menghitung tanggal paskah 3

3. Dan kemudian Anda harus memformat angka dia sebagai format tanggal:

(1.) Pilih 5 digit angka dan klik kanan untuk memilih Format Cells dari menu konteks;

(2.) Di muncul keluar Format Cells kotak dialog, klik Jumlah tab, dan pilih Tanggal dari Kategori panel, lalu pilih satu format tanggal yang Anda suka dari kotak daftar kanan, lihat tangkapan layar:

doc menghitung tanggal paskah 4

4. Dan kemudian, nomor telah diformat sebagai format tanggal yang Anda butuhkan, dan Anda bisa mendapatkan tanggal Paskah pada tahun yang ditentukan, lihat tangkapan layar:

doc menghitung tanggal paskah 5

Tips: Untuk memformat angka ke format tanggal yang biasa Anda gunakan, Anda juga dapat menggunakan utilitas Terapkan Format Tanggal dari Kutools for Excel seperti gambar berikut yang ditampilkan:

doc menghitung tanggal paskah 6


panah gelembung kanan biru Hitung tanggal Paskah tahun tertentu dengan Fungsi Buatan Pengguna

Berikut ini Fungsi Buatan Pengguna juga dapat membantu Anda menghitung tanggal Paskah pada tahun tertentu.

1. Tahan ALT + F11 kunci, lalu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Hitung tanggal Paskah tahun tertentu:

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. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja dan masukkan rumus ini: = tanggal paskah (A2) ke dalam sel kosong di samping data Anda yang sesuai, lalu seret pegangan isian ke sel yang ingin Anda terapkan rumus ini, Anda akan mendapatkan beberapa angka lima digit, lihat tangkapan layar:

doc menghitung tanggal paskah 7

5. Dan kemudian Anda harus mengubah angka ke format tanggal yang Anda butuhkan. Silakan lihat langkah 3 metode di atas untuk memformatnya hingga saat ini.


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (11)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya menerjemahkan rumus Anda untuk Excel Belanda seperti ini (tahun dalam A81):
=AFRONDEN.BENEDEN(DATUM(A81;5;DAG(MINUUT(A81/38)/2+56));7)-34

Rumusnya memberikan 2079-04-16 untuk Paskah 2079. Ini seharusnya 2079-04-23. Sisa abad ke-21 terlihat baik-baik saja!
Komentar ini diminimalkan oleh moderator di situs
Ya, saya memiliki beberapa masalah dengan variasi pada formula itu. Periksa 2011, 2038, 2052, dan 2079, semuanya 7 hari lebih awal.
Komentar ini diminimalkan oleh moderator di situs
Juga 2108 memberikan 2108-Mar-31, seharusnya 2108-Apr-1.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana dengan paskah ortodoks? Apakah ada kode untuk itu juga?
Komentar ini diminimalkan oleh moderator di situs
Apakah ada Rumus Excel serupa untuk mengetahui Tahun Baru Imlek karena ini juga merupakan Hari Libur Kalender Imlek?
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi di lembar google. Ini sangat panjang tetapi berfungsi tanpa kesalahan untuk tahun-tahun bermasalah juga (apa yang Anda sebutkan di sini). Anda dapat menyalin ke sel dan di sel K1 tahun diharapkan, seperti 2022
=DATE(K1;IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;3;4);IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7));(IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))-31))

Komentar ini diminimalkan oleh moderator di situs
Halo Tami, Terima kasih telah berbagi. Rumus ini berfungsi tanpa kesalahan di lembar google. Terima kasih! Hormat kami, Mandy
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi di lembar google. Ini sangat panjang tetapi berfungsi tanpa kesalahan untuk tahun-tahun bermasalah juga (apa yang Anda sebutkan di sini). Anda dapat menyalin ke sel dan di sel K1 tahun diharapkan, seperti 2022

=DATE(K1;IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;3;4);IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7));(IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))-31))
Komentar ini diminimalkan oleh moderator di situs
Halo hztama,
Terima kasih atas bagian Anda. Rumus ini berfungsi tanpa kesalahan di lembar google. Terima kasih!
Hormat kami,
Mandy
Komentar ini diminimalkan oleh moderator di situs
Versi Excel, lebih sederhana, Anda hanya perlu mengubah L3 di awal ke sel tempat Anda akan memasukkan tahun (seperti 2022). 
=LET(Y;L3;A;MOD(Y;19);B;MOD(Y;4);C;MOD(Y;7);D;MOD(19*A+24;30);E;MOD(2*B+4*C+6*D+5;7);H;IFS(AND(E=6;D=29);50;AND(E=6;D=28;A>10);49;TRUE;22+D+E);IF(H<=31;DATE(Y;3;H);DATE(Y;4;H-31)))
Komentar ini diminimalkan oleh moderator di situs
Halo hztamas, Terima kasih banyak atas sharenya. Saya mengubah ";" ke "," dalam rumus Anda sehingga bisa berfungsi di Excel. Saya memiliki data (seperti 2013) di sel A1.=LET(Y,A1,A,MOD(Y,19),B,MOD(Y,4),C,MOD(Y,7),D,MOD(19 *A+24,30),E,MOD(2*B+4*C+6*D+5,7),H,IFS(DAN(E=6,D=29),50,AND(E= 6,D=28,A>10),49,TRUE,22+D+E),IF(H<=31,DATE(Y,3,H),DATE(Y,4,H-31))) Rumus ini berfungsi, tetapi saya pikir itu tidak jauh lebih sederhana daripada rumus di artikel. Bagaimanapun, saya pikir mereka berdua hebat. Terima kasih lagi! Hormat kami, Mandy
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan