Procedure LastDay(nDia28293031)

IF nMes = 1 THEN
nDia28293031 = 31
ELSE IF nMes = 2
IF (modulo(nAno,400) = 0) OR ( modulo(nAno,4) = 0 AND modulo(nAno,100) <> 0)
nDia28293031 = 29
ELSE
nDia28293031 = 28
END
ELSE IF nMes = 3
nDia28293031 = 31
ELSE IF nMes = 4
nDia28293031 = 30
ELSE IF nMes = 5
nDia28293031 = 31
ELSE IF nMes = 6
nDia28293031 = 30
ELSE IF nMes = 7
nDia28293031 = 31
ELSE IF nMes = 8
nDia28293031 = 31
ELSE IF nMes = 9
nDia28293031 = 30
ELSE IF nMes = 10
nDia28293031 = 31
ELSE IF nMes = 11
nDia28293031 = 30
ELSE IF nMes = 12
nDia28293031 = 31
END

result nDia28293031