Procedure Bissexto(ano is int)
IF (Modulo(ano,4)=0 AND Modulo(ano,100)<>0) OR (Modulo(ano,400)=0) THEN
RESULT True
ELSE
RESULT False
END


//Ou Pode ser utilizado deste outro modo
Procedure Bissexto(ano is int)

d_data_verifica is Date
d_data_verifica = DateSys()//Data Atual do Sistema
d_data_verifica..Year = ano//Trocamos o ano pelo ano passado por parámetro
d_ultimo_dia_mes is Date
d_ultimo_dia_mes = LastDayOfMonth(d_data_verifica..Year,2) //Verifica ultima dia do Mes de Fevereiro
IF d_ultimo_dia_mes..Day = 28 THEN
RESULT False
ELSE
RESULT True
END