Diferencia entre revisiones de «Computus»
Contenido eliminado Contenido añadido
Revertidos los cambios de 80.58.205.41 a la última edición de Netito777 usando monobook-suite |
|||
Línea 88:
== Implementación del algoritmo ==
e = (2*b+4*c+6*d + N) mod 7▼
=== Algoritmo en Java ===
Línea 626 ⟶ 588:
</source>
Create proc pascuass
as
declare @fecha datetime
declare @di datetime
declare @año int
declare @m int
declare @n int
declare @a int
declare @b int
declare @c int
declare @d int
declare @e int
declare @dia int
select @fecha=getdate()
select @año=year(@fecha)
if @año>=1583 and @año<=1699
select @m=22
select @n=2
if @año>=1700 and @año<=1799
select @m=23
select @n=3
if @año>=1800 and @año<=1899
select @m=23
select @n=4
if @año>=1900 and @año<=2099
set @m=24
set @n=5
select @a=@año%19
select @b=@año%4
select @c=@año%7
select @d=(19*@a+@m) %30
select @dia =22+@e+@d
if @dia<=31
print cast(@dia as varchar(2)) + '/03/'+cast(@año as varchar(4))
if @dia>31
select @dia=@dia-31
print cast(@dia as varchar(2)) + '/04/'+cast(@año as varchar(4))
return
[[Categoría:Semana Santa]]
|