1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br
Cookies Anuncie aqui Patrocinador Anuncios

Identificar ano Bisexto

Discussão em 'Progress 4GL' iniciado por fdantas, Fevereiro 8, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Identificar ano Bisexto

    Código:
    IF YEAR(TODAY) MOD 4 = 0 THEN
DO:
MESSAGE 'Esse Ano é bisexto'
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
    fdantas, Fevereiro 8, 2009
    #1
  2. Matheus

    Matheus Sem Pontuação

    Não basta apenas verificar se o ano divide quatro.
    A fórmula correta para ano bissexto é: divide 4 mas não divide 100 ou divide 400

    IF YEAR(TODAY) MOD 400 = 0 THEN DO:
    MESSAGE 'BISSEXTO' VIEW-AS ALERT-BOX.
    END.
    ELSE DO:
    IF YEAR(TODAY) MOD 4 = 0 AND
    YEAR(TODAY) MOD 100 <> 0 THEN
    MESSAGE 'BISSEXTO' VIEW-AS ALERT-BOX.
    ELSE MESSAGE 'NÃO É BISSEXTO' VIEW-AS ALERT-BOX.
    END.


    http://educacao.ig.com.br/noticia/2009/ ... 26938.html
    Matheus, Maio 25, 2009
    #2
  3. sl4v3r

    sl4v3r Membro Participativo

    Mateus,

    Quando postar codigos voce pode utilizar a tag Code.

    Com Code
    Código:
    message "teste" view-as alert-box.
    Sem Code
    message "teste" view-as alert-box.
    sl4v3r, Maio 26, 2009
    #3
  4. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Segue uma lógica:

    Código:
    
def var i-ano       as int      no-undo.

output to d:\temp\ano-bissexto.txt.

do  i-ano = 1900 to 2100:

    put  i-ano                                                  " "
         ( i-ano mod 400  = 0   or 
          (i-ano mod 4    = 0   and
           i-ano mod 100 <> 0)) format "BisSexto/Não BisSexto"  " "
         date(03,01,i-ano) - 1  format "99/99/9999"             skip.

end.

output close.
    eduardo.leite, Maio 26, 2009
    #4
    flavia.nicacio curtiu isso.

Compartilhe esta Página