Progress - FECHAS el dia 30

Hola espero que alguien me pueda ayudar
Necesito buscar todos los dias 30 de cada mes el detalle es Febrero que nunca tendra 30 dias todos los demas meses tienen 30 excepto este como lo puedo encontrar???
Gracias.
:)

Mira a ver si esto te vale:

FUNCTION esFechaValida RETURNS LOGICAL (INPUT idDia AS INT,INPUT idMes AS INT, INPUT idAno AS INT ):
DEFINE VARIABLE dFechaAux AS DATE NO-UNDO.
dFechaAux = DATE(idMes, idDia, idAno) NO-ERROR.
RETURN NOT error-status:ERROR.
END FUNCTION.

MESSAGE esFechaValida(30, 2, 2008)
VIEW-AS ALERT-BOX INFO BUTTONS OK.

Saludos