Excel'de Paskalya tarihini nasıl hesaplarım?

Hepimizin bildiği gibi, Paskalya tatili her zaman 21 Mart'tan sonra gelen ilk kilise dolunayından sonraki ilk Pazar günüdür. Bu nedenle, her yılın Paskalya tarihi aşağıdaki ekran görüntüsünde gösterildiği gibi farklı bir tarih olabilir. Belirli bir yılın özel Paskalya tarihini bulmak için bu makale size yardımcı olabilir.

Verilen yılın Paskalya tarihini formülle hesaplayın

Verilen yılın Paskalya tarihini Kullanıcı Tanımlı İşlev ile hesaplayın

Verilen yılın Paskalya tarihini formülle hesaplayın

Verilen yılın Paskalya tarihini almak için aşağıdaki formül size yardımcı olabilir, lütfen şu adımları izleyin:

1. =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 formülünü, verilen yılınızın yanındaki boş bir hücreye, örneğin B2'ye girin, aşağıdaki ekran görüntüsüne bakın:

2. Ardından, doldurma tutamacını, belirli tarihin Paskalya tarihini hesaplamak istediğiniz hücrelere kadar aşağı sürükleyin ve hücrelerde beş haneli sayılar görüntülenir, aşağıdaki ekran görüntüsüne bakın:

3. Ve ardından bu sayıları tarih formatında biçimlendirmelisiniz:

(1.) Beş haneli sayıları seçin ve sağ tıklayarak içerik menüsünden Hücreleri Biçimlendir'i seçin;

(2.) Açılan Hücreleri Biçimlendir iletişim kutusunda, Sayı sekmesine tıklayın ve Kategori bölmesinden Tarih'ı seçin, ardından sağdaki listeden beğendiğiniz bir tarih formatını seçin, aşağıdaki ekran görüntüsüne bakın:

4. Ve ardından, sayılar ihtiyaç duyduğunuz şekilde tarih formatına dönüştürülmüş olacak ve verilen yılın Paskalya tarihini elde edebilirsiniz, aşağıdaki ekran görüntüsüne bakın:

Verilen yılın Paskalya tarihini Kullanıcı Tanımlı İşlev ile hesaplayın

Aşağıdaki Kullanıcı Tanımlı İşlev de belirli bir yılın Paskalya tarihini hesaplamak için size yardımcı olabilir.

1. ALT + F11 tuşlarını basılı tutun, ardından Microsoft Visual Basic for Applications penceresi açılır.

2. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Verilen yılın Paskalya tarihini hesaplayın:

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. Ardından bu kodu kaydedip kapatın, çalışma sayfasına geri dönün ve bu formülü: =easterdate(A2) ilgili verilerinizin yanındaki boş bir hücreye girin ve ardından doldurma tutamacını bu formülü uygulamak istediğiniz hücrelere kadar aşağı sürükleyin, beş haneli bazı sayılar elde edeceksiniz, aşağıdaki ekran görüntüsüne bakın:

5. Ve ardından bu sayıları ihtiyaç duyduğunuz şekilde tarih formatına dönüştürmelisiniz. Lütfen yukarıdaki yöntemin 3. adımını inceleyerek bunları tarih formatına getirin.