Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-04-2006
Avatar de Thales
Thales Thales is offline
Miembro
NULL
 
Registrado: ago 2005
Posts: 48
Poder: 0
Thales Va por buen camino
Saber donde cae la Semana Santa

No pretendo hacer ninguna consulta, sino más bien comentar una curiosidad con la que me he topado y que viene a cuento dadas las fechas en las que nos encontramos.
Resulta que existen algoritmos para conocer con exactitud la fecha en la que caerá la Pascua de Resurrección (domingo de resurrección).
Por si no conocéis la existencia de estos algoritmos os pongo aquí una función que os puede ser útil (quien sabe) y que utiliza el algoritmo de Butcher.

Código Delphi [-]
function Pascua(Anio: word): TDateTime;
var
  a, b, c, d, e, f, g, h, i, k, l, m, n: word;
  Mes, Dia: word;
begin
  { Devuelve la fecha del año en la que cae la Pascua de Resurrección.
    Se utiliza para ello el Algoritmo de Butcher }
  a := anio mod 19;
  b := anio div 100;
  c := anio mod 100;
  d := b div 4;
  e := b mod 4;
  f := (b + 8) div 25;
  g := (b - f + 1) div 3;
  h := (19 * a + b - d - g + 15) mod 30;
  i := c div 4;
  k := c mod 4;
  l := (32 + 2 * e + 2 * I - h - k) mod 7;
  m := (a + 11 * h - 22 * l) div 451;
  n := h + l - 7 * m + 114;
  Mes := n div 31;
  Dia := 1 + n mod 31;

  Result := EncodeDate(Anio, Mes, Dia);
end;

Un saludo
__________________
Mi web: http://personales.ya.com/cuaderno
Responder Con Cita
  #2  
Antiguo 05-04-2006
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
NULL
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Pues he hecho varias pruebas y funciona correctamente, muchas gracias por la aportación.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 05-04-2006
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
NULL
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.722
Poder: 18
ContraVeneno Va por buen camino
pues a mi siempre me da risa las soluciones que nos tenemos que crear cuando no podemos escribir la ñ en el código. Especialmente con las fechas.
__________________

Responder Con Cita
  #4  
Antiguo 05-04-2006
Avatar de Thales
Thales Thales is offline
Miembro
NULL
 
Registrado: ago 2005
Posts: 48
Poder: 0
Thales Va por buen camino
Siempre existe la alternativa de poner Year en lugar de anio y el resto de nombres de variables en inglés, pues total estamos muy acostumbrados a usar la VCL que lo hace así por motivos obvios

Un saludo
__________________
Mi web: http://personales.ya.com/cuaderno
Responder Con Cita
  #5  
Antiguo 05-04-2006
Avatar de Emilio
*Emilio* Emilio is offline
Capo
NULL
 
Registrado: may 2003
Ubicación: Palma de Mallorca
Posts: 2.629
Poder: 10
Emilio Va por buen camino
oño, que bueno, siempre me he hecho un lío para saber cuando cae semana santa y ahora lo tenemos en una función, genial. Gracias por la aportación.
__________________
Saludos
Emilio
Responder Con Cita
  #6  
Antiguo 25-06-2014
petite petite is offline
Registrado
NULL
 
Registrado: jun 2014
Posts: 8
Poder: 0
petite Va por buen camino
Red face

Hola muchas gracias por el algoritmo pero, perdon por mi ignorancia pero noc como mandar llamar el resultado de la funcion me podrian explicar como por favor
Responder Con Cita
  #7  
Antiguo 01-07-2014
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 5.744
Poder: 19
Ñuño Martínez Va camino a la famaÑuño Martínez Va camino a la fama
Pues pasándole el año...

Código Delphi [-]
VAR
  Fecha: TDateTime;
...
  Fecha := Pascua (2014);
...
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Saber unidad de disco donde estoy marceloalegre Varios 4 12-07-2005 17:47:27
Saber el primer dia de una determinada semana nugame Varios 2 19-11-2004 11:01:02
Necesito Saber Donde Lo Descargo!! condor Varios 17 21-05-2004 21:48:50
Saber donde estoy en un Rich Tonio Varios 2 16-09-2003 11:06:36


La franja horaria es GMT +2. Ahora son las 05:15:48.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi