Ano bisexto no Progress…

IF YEAR(TODAY) MOD 4 = 0 THEN
MESSAGE ‘Ano eh bisexto’ VIEW-AS ALERT-BOX.
ELSE
MESSAGE ‘Ano nao eh bisexto’ VIEW-AS ALERT-BOX.

flw