elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [AYUDA RESUETO] Calcular la fecha del primer domingo de abril de cualquier año
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [AYUDA RESUETO] Calcular la fecha del primer domingo de abril de cualquier año  (Leído 2,266 veces)
LaThortilla (Effort)

Desconectado Desconectado

Mensajes: 234


¿En que vida harás lo que en esta no?


Ver Perfil WWW
[AYUDA RESUETO] Calcular la fecha del primer domingo de abril de cualquier año
« en: 17 Marzo 2015, 23:53 pm »

hola estoy practicando con los cambios de horarios y necesito calcular el primer domingo de abril que es cuando se hace el cambio de horario en México....


« Última modificación: 18 Marzo 2015, 00:40 am por Effort » En línea

LaThortilla (Effort)

Desconectado Desconectado

Mensajes: 234


¿En que vida harás lo que en esta no?


Ver Perfil WWW
[AYUDA RESUETO] Calcular la fecha del primer domingo de abril de cualquier año
« Respuesta #1 en: 18 Marzo 2015, 00:40 am »

Código
  1. #coding: latin-1
  2.  
  3. def Pascua(anno):
  4.    # Constantes mágicas
  5.    M = 24  
  6.    N = 5
  7.  
  8.    #Cálculo de residuos
  9.    a = anno % 19
  10.    b = anno % 4
  11.    c = anno % 7
  12.    d = (19*a + M) % 30
  13.    e = (2*b+4*c+6*d + N) % 7
  14.  
  15.    # Decidir entre los 2 casos:
  16.    if d+e < 10  :
  17.        dia = d+e+22
  18.        mes = "marzo"
  19.    else:
  20.        dia = d+e-9
  21.        mes = "abril"
  22.  
  23.    # Excepciones especiales (según artículo)
  24.    if dia == 26  and mes == "abril":
  25.        dia = 19
  26.    if dia == 25 and mes == "abril" and d==28 and e == 6 and a >10:
  27.        dia = 18
  28.  
  29.    return [dia, mes, anno]
  30.  
  31. print Pascua(2008)


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines