search search Pussy B News %droidcamx%20pro%BA%BA%BB%AFB1 Pussy s News a Money ch% Money ssearcharcsearchCse News rcsearch% Pussy er Money h8sa Datingdelightfulgirls c Pussy 2 Money Daisearchgde Pussy ihsearchfulgsearchr News s Pussy TsearchPsearchssy Money ysearchesearchr Pussy h News 0%B6%AB%BE%A9%C8%C8%20Tokyo%20Hot%20n0425%20%D7%F4%CC%D9%B7%5B%C4%CB%BB%A8%20%B3%AC%BE%F8%C3%C0%C9%D9%C5%AE%D7%EE%90%99%BE%AB%D2%BA%C4%E7%BC%E9%20Honoka%20Satoodroidcamx%20pro%BA%BA%BB%AF% Money 002search% Pussy 0searchD% Money 4C Money % Datingdelightfulgirls 90Bsearch%5 Pussy % Datingdelightfulgirls 4 Datingdelightfulgirls C0%Bsearch%search8 Money 2search% News 3searchACBsearch% News 8% Pussy 31C News %C Datingdelightfulgirls % Datingdelightfulgirls 9% Datingdelightfulgirls 5 Pussy A Datingdelightfulgirls %7%EEsearch9search%9search%searchE Datingdelightfulgirls A Pussy % News 2 Money B Money %Csearch%Esearch% Datingdelightfulgirls CsearchE Pussy %search0 Money o Datingdelightfulgirls o Datingdelightfulgirls asearch2searchSsearchto
    

PUBLICIDADE

Autor

Ric@rdo Falter

membro deste agosto de 2009

Tags

Enquete

O buscador Bing, da Microsoft, conseguirá alcançar o ?
PUBLICIDADE

HomeCódigo FonteSQLOracle

Função para obter a data da páscoa


O dia da Páscoa é o primeiro domingo depois da Lua Cheia que ocorre no dia ou depois de 21 março. Entretanto, a data da Lua Cheia não é a real, mas a definida nas Tabelas Eclesiásticas. A Quarta-Feira de Cinzas ocorre 46 dias antes da Páscoa, e portanto a Terça-Feira de carnaval ocorre 47 dias antes da  Páscoa. O dia de Corpus Christi ocorre 60 dias após a Páscoa.Esta função tem por objetivo, a partir do ano informado, obter a data da páscoa daquele ano.É util para prever os feriádos móveis do ano, que são todos em função da data da Páscoa, conforme descrito acima.
FUNCTION data_pascoa (In_ano NUMBER) RETURN DATE IS

/**************************************

 Para calcular a data da Páscoa para qualquer ano no calendário Gregoriano
 (o calendário civil no Brasil), usa-se a seguinte fórmula, com TODAS AS
 VARIÁVEIS INTEIRAS, com os resíduos das divisões ignorados.
 Usa-se A para ano, M para mês, e D para dia.
 c = a/100
 n = a - 19*(a/19)
 k = (c - 17)/25
 i = c - c/4 - (c-k)/3 +19*n + 15
 i = i - 30*(i/30)
 i = i - (i/28)*(1-(1/28)*(29/(i+1))*((21-n)/11))
 j = a + a/4 + i + 2 -c + c/4
 j = j - 7*(j/7)
 l = i - j
 m = 3 + (l+40)/44
 d = l + 28 - 31*(m/4)

 Este algoritmo é de J.-M.Oudin (1940) e impresso no
 Explanatory Supplement to the Astronomical Almanac, ed. P.K. Seidelmann (1992).

 Retirado originalmente de
 ~kepler/fis207/pascoa.html
 e adaptado para PL/SQL por Ricardo Falter

 ********************************************************************************/


 A  INTEGER := In_ano; -- unico parametro, o ano a se obter a data da pascoa
 M  INTEGER; -- variavel para o mes
 D  INTEGER; -- variavel para o dia
 C  INTEGER; -- variavel para o seculo
 I  INTEGER; -- variavel auxiliar
 J  INTEGER; -- variavel auxiliar
 K  INTEGER; -- variavel auxiliar
 L  INTEGER; -- variavel auxiliar
 N  INTEGER; -- variavel auxiliar
 BEGIN
 C  := trunc (A / 100);
 N  := A - 19 * (trunc (A / 19) );
 K  := trunc ( (C - 17) / 25);
 I  := C - trunc (C / 4) - trunc ( (C - K) / 3) + 19 * N + 15;
 I  := I - 30 * (trunc (I / 30) );
 I  := I - (trunc (I / 28) ) * (1 - (trunc (1 / 28) ) * (trunc (29 / (I + 1) ) ) * (trunc ( (21 - N) / 11) ) );
 J  := A + trunc (A / 4) + I + 2 - C + trunc (C / 4);
 J  := J - 7 * (trunc (J / 7) );
 L  := I - J;
 M  := 3 + trunc ( (L + 40) / 44);
 D  := L + 28 - 31 * (trunc (M / 4) );
 RETURN (TO_DATE (lpad (D, 2, 0) || lpad (M, 2, 0) || lpad (A, 4, 0), 'DDMMYYYY') );
 END;

    Este código foi útil para você?
NotaComentário
Ainda não foi enviado nenhum comentário.
Regras:
Os comentários seguem as seguintes regras:
  • Todos os comentários são enviados por membros cadastrados no site.
  • A pontuação de comentários de conteúdo do próprio membro não serão computados.
  • Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
  • Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
  • O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
  • Há um limite de 10 comentários por dia para cada membro.
  • Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

     (ainda não tem cadastro? clique aqui!)


Máximo de 30 caracteres

Máximo de 255 caracteres
 

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Contato/Anuncie
© 2006-2012 R&W Informática Ltda. - Todos os direitos reservados.
oMoney Datingdelightfulgirls C Pussy De News Dating Delightful Girls Função para obter a data-da páscoa - SQL (Oracle)e e z Boob Webcam Singles Girls bMoney Datingdelightfulgirls C Pussy De News Dating Delightful Girls Função para obter a data-da páscoa - SQL (Oracle)k o Dating Delightful Girls