Muchas gracias, es para utilizar en Cuba, para el calculo de dias
habiles... asi que el criterio de la Iglesia Ortodoxa para el calculo no
influye.
El vie, 15-08-2014 a las 13:22 -0400, Alberto José García Fumero
escribió:
> El vie, 15-08-2014 a las 13:12 -0400, Lester Ramón González Alvarez
> escribió:
> > Hola a todos
> >
> > Necesito un código o aplicación que dado un año me devuelva la fecha del
> > primer viernes de luna llena después del equinoccio de primavera (21 de
> > marzo)
> >
> > Gracias
> >
> > --
> > MSc Lester Ramón González Alvarez
> > Auditor Interno
> > ONAT Villa Clara
>
> Te pongo a continuación un programita en PHP que te calcula las
> principales festividades. Haz un corta y pega y lo pones en /var/www/
> o /var/www/html/ o donde corresponda.
>
> Si no recuerdo mal, lo saqué del CD de la Enciclopedia Católica, y es el
> que uso. ;-)
>
> Ojo, que hasta donde sé, la Iglesia Ortodoxa toma en consideración otros
> criterios y la Semana Santa no necesariamente coincide con la
> católica/protestante.
>
> **comienzo del código **
> function pascua ($anno)
> {
> # Constantes mágicas
> $M = 24;
> $N = 5;
> #Cálculo de residuos
> $a = $anno % 19;
> $b = $anno % 4;
> $c = $anno % 7;
> $d = (19*$a + $M) % 30;
> $e = (2*$b+4*$c+6*$d + $N) % 7;
> # Decidir entre los 2 casos:
> if ( $d + $e < 10 ) {
> $dia = $d + $e + 22;
> $mes = 3; // marzo
> }
> else {
> $dia = $d + $e - 9;
> $mes = 4; //abril
> }
> # Excepciones especiales (según artículo)
> if ( $dia == 26 and $mes == 4 ) { // 4 = abril
> $dia = 19;
> }
> if ( $dia == 25 and $mes == 4 and $d==28 and $e == 6 and $a >10 ) { // 4
> = abril
> $dia
> = 18;
> }
> $ret = $dia.'-'.$mes.'-'.$anno;
> return ($ret);
> }
>
> function mesespanol($m){
> $m=intval($m);
> $meses="No Especificado,
> Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,
> Agosto,Septiembre,Octubre,Noviembre,Diciembre";
> $mes=explode(",",$meses);
>$mesespan=$mes[$m];
> return $mesespan;
> }
> function diaespanol($d){
> $d=intval($d);
>$dias="No Especificado,Lunes,Martes,
>
> Mircoles,Jueves,Viernes,Sbado,Domingo";
> $dia=explode(",",$dias);
> $diasspan=$dia[$d];
> return $diasspan;
> }
> ?> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd;>
> http://www.w3.org/1999/xhtml;>
>
>
> Calcular Semana Santa | Pascua | PHP
>
>
>
> Tomado de http://www.asunfarra.com.py/pascua/ [Omar Albert]
> Calcular Pascua:
>
>
> Ao: value=" 0){ echo
> intval($_POST['anno']); }else{ echo date("Y"); }?>">
>
>
>
>
> #ejecutarlo pasando el año como parámetro.
> if (isset($_POST['anno'])) {
> $fecha = explode('-',pascua($_POST['anno']));
> }
> ?>
>
>
> La pascua (domingo de resurreccin)
> en el ao introducido es el:
> de
> de
>
>
>
> Fechas especiales:
>
>
>
>
>
> face="arial">Celebracin
> Da
> Fecha
>
>
> Domingo de Pascua
> $fecha[1],$fecha[0],$fecha[2]))); ?>
> $fecha[0],$fecha[2])); ?>
>
>
> Mircolesde ceniza
> $fecha[1],$fecha[0]-46,$fecha[2]))); ?>
> $fecha[0]-46,$fecha[2])); ?>
>
>
> Domingo de Ramos
> $fecha[1],$fecha[0]-7,$fecha[2]))); ?>
> $fecha[0]-7,$fecha[2])); ?>
>
>
> Jueves Santo
> $fecha[1],$fecha[0]-3,$fecha[2]))); ?>
> $fecha[0]-3,$fecha[2])); ?>
>
>
> Viernes Santo
> $fecha[1],$fecha[0]-2,$fecha[2]))); ?>
> $fecha[0]-2,$fecha[2])); ?>
>
>
> Ascensin
> $fecha[1],$fecha[0]+39,$fecha[2]))); ?>
> $fecha[0]+39,$fecha[2])); ?>
>
>
> Pentecosts
> $fecha[1],$fecha[0]+49,$fecha[2]))); ?>
> $fecha[0]+49,$fecha[2])); ?>
>
>
> Santsima Trinidad
> $fecha[1],$fecha[0]+56,$fecha[2]))); ?>
> $fecha[0]+56,$fecha[2])); ?>
>
>
> Corpus Christi
> $fecha[1],$fecha[0]+60,$fecha[2]))); ?>
> $fecha[0]+60,$fecha[2])); ?>
>
>
>
>
>
>
>
>
>
> fin del código
> --
> M.Sc. Alberto García Fumero
> Usuario Linux 97 138, registrado 10/12/1998
> Las autoridades sanitarias advierten:
> El uso prolongado de Windows puede provocar dependencia.
>
> __
> Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba.
> Gutl-l@jovenclub.cu
> https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
--
MSc Lester Ramón González Alvarez
Auditor Interno
