IF YEAR(TODAY) MOD 4 = 0 THEN
DO:
MESSAGE 'Esse Ano é bisexto'
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
Contribuição de Edgar Junior Datasul Campinas
sexta-feira, 2 de março de 2007
Identificar ano Bisexto
IF YEAR(TODAY) MOD 4 = 0 THEN
DO:
MESSAGE 'Esse Ano é bisexto'
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
Contribuição de Edgar Junior Datasul Campinas
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário