Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-07-2006
nemesio nemesio is offline
Miembro
 
Registrado: nov 2005
Ubicación: Isla de Margarita, Venezuela
Posts: 377
Poder: 19
nemesio Va por buen camino
Obtener Lunes de Carnaval o Jueves Santo

Esta Función permite Obtener el Lunes de Carnaval o el Jueves Santo de un año específico.
Para Obtener la fecha del Lunes de Carnaval:
Festivo(Año,48);
Para Obtener la fecha del Jueves Santo:
Festivo(Año,3);
Para Obtener el Domingo de Resurrección o Pascua:
Festivo(Año,0);

Código Delphi [-]
function Festivo(Anno:Integer; Tipo:Integer):TDate;
var
  A,B,C,D,E,N:Integer;
  Dia,Mes:string;
begin
  A:=ANNO mod 19;
  B:=ANNO mod 4;
  C:=ANNO mod 7;
  D:=(19*A+24) mod 30;
  E:=(2*B+4*C+6*D+5) mod 7;
  N:=(22 + D + E);
  Mes:='03';
  if N>31 then
  begin
    N:=N-31;
    Mes:='04';
  end;
  Dia:=Trim(IntToStr(N));
  Dia:=StringOfChar('0', 2-Length(Dia) )+Dia;
  result:=StrToDate(Dia+'/'+Mes+'/'+IntToStr(Anno))-Tipo;

end;
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


La franja horaria es GMT +2. Ahora son las 18:54:32.


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