PC Toledo

Código: Selecionar todos

/// <summary>
/// Retorna o domingo de páscoa de um determinado ano
/// </summary>

public static DateTime DomingoDePascoa(int ano)

{     Int32 a = ano % 19;     Int32 b = ano  / 100;     Int32 c = ano % 100;     Int32 d = b / 4;     Int32 e = b % 4;     Int32 f = (b + 8 ) / 25;     Int32 g = (b - f + 1) / 3;     Int32 h = (19 * a + b - d - g + 15) % 30;     Int32 i = c / 4;     Int32 k = c % 4;     Int32 L = (32 + 2 * e + 2 * i - h - k) % 7;     Int32 m = (a + 11 * h + 22 * L) / 451;     Int32 mes = (h + L - 7 * m + 114) / 31;     Int32 dia = ((h + L - 7 * m + 114) % 31) + 1;     return new DateTime(ano, mes, dia);
}

/// <summary>
/// Retorna o domingo de carnaval de um determinado ano
/// </summary>

public static DateTime DomingoDeCarnaval(int ano)

{     return DomingoDePascoa(ano).AddDays(-49);
}

/// <summary>
/// Retorna a data de início do horário de verão de um determinado ano
/// </summary>

public static DateTime InicioHorarioVerao(Int32 ano)

{     // terceiro domingo de outubro     DateTime primeiroDeOutubro = new DateTime(ano, 10, 1);     DateTime primeiroDomingoDeOutubro = primeiroDeOutubro.AddDays((7 - (Int32)primeiroDeOutubro.DayOfWeek) % 7);     DateTime terceiroDomingoDeOutubro = primeiroDomingoDeOutubro.AddDays(14);     return terceiroDomingoDeOutubro;
}

/// <summary>
/// Retorna a data de término do horário de verão de um determinado ano
/// </summary>

public static DateTime TerminoHorarioVerao(Int32 ano)

{     DateTime primeiroDeFevereiro = new DateTime(ano + 1, 2, 1);     DateTime primeiroDomingoDeFevereiro = primeiroDeFevereiro.AddDays((7 - (Int32)primeiroDeFevereiro.DayOfWeek) % 7);     DateTime terceiroDomingoDeFevereiro = primeiroDomingoDeFevereiro.AddDays(14);     if (terceiroDomingoDeFevereiro != DomingoDeCarnaval(ano))     {         return terceiroDomingoDeFevereiro;     }     else     {         return terceiroDomingoDeFevereiro.AddDays(7);     }
}

Código: Selecionar todos

 
#pragma -w3
#pragma -es2

PROCEDURE Main
   SET DATE BRITISH
   ? "Domingo de Pascoa:    ", DomingoDePascoa( 2014 )
   ? "Domingo de Carnaval:  ", DomingoDeCarnaval( 2014 )
   ? "Inicio Horario Verao: ", InicioHorarioVerao( 2014 )
   ? "Termino Horario Verao:", TerminoHorarioVerao( 2014 )
   RETURN


FUNCTION DomingoDePascoa( iAno )
   LOCAL iA, iB, iC, iD, iE, iF, iG, iH, iI, iK, iL, iM, iMes, iDia

   iA   := iAno % 19
   iB   := Int( iAno / 100 )
   iC   := iAno % 100
   iD   := Int( iB / 4 )
   iE   := iB % 4
   iF   := Int( ( iB + 8 ) / 25 )
   iG   := Int( ( iB - iF + 1 ) / 3 )
   iH   := (19 * iA + iB - iD - iG + 15) % 30
   iI   := Int( iC / 4 )
   iK   := iC % 4
   iL   := ( 32 + 2 * iE + 2 * iI - iH - iK ) % 7
   iM   := Int( ( iA + 11 * iH + 22 * iL) / 451 )
   iMes := Int( ( iH + iL - 7 * iM + 114 ) / 31 )
   iDia := ( ( iH + iL - 7 * iM + 114 ) % 31 ) + 1
   RETURN Ctod( StrZero( iDia, 2 ) + "/" + StrZero( iMes, 2 ) + "/" + StrZero( iAno, 4 ) )


FUNCTION DomingoDeCarnaval( iAno )
   RETURN DomingoDePascoa( iAno ) - 49


FUNCTION InicioHorarioVerao( iAno ) // Terceiro domingo de outubro
   LOCAL dPrimeiroDeOutubro, dPrimeiroDomingoDeOutubro, dTerceiroDomingoDeOutubro

   dPrimeiroDeOutubro := Ctod( "01/10/" + StrZero( iAno, 4 ) )
   dPrimeiroDomingoDeOutubro := dPrimeiroDeOutubro + ( 7 - Dow( dPrimeiroDeOutubro ) % 7 )
   dTerceiroDomingoDeOutubro := dPrimeiroDomingoDeOutubro + 14
   RETURN dTerceiroDomingoDeOutubro


FUNCTION TerminoHorarioVerao( iAno )
   LOCAL dPrimeiroDeFevereiro, dPrimeiroDomingoDeFevereiro, dTerceiroDomingoDeFevereiro
   dPrimeiroDeFevereiro := Ctod( "01/02/" + StrZero( iAno + 1, 4 ) )
   dPrimeiroDomingoDeFevereiro := dPrimeiroDeFevereiro + ( 7 - Dow( dPrimeiroDeFevereiro ) % 7 )
   dTerceiroDomingoDeFevereiro := dPrimeiroDomingoDeFevereiro + 14
   IF dTerceiroDomingoDeFevereiro == DomingoDeCarnaval( iAno )
      dTerceiroDomingoDeFevereiro += 7
   ENDIF
   RETURN dTerceiroDomingoDeFevereiro

Código: Selecionar todos

 FOR nCont = 2009 TO 2024
    ? "Terça de Carnaval: ", DomingoDeCarnaval( nCont ) + 2
 NEXT