Procedimiento Almacenado y Fecha

[rruffino]

Hola a todos! Estoy haciendo un procedimiento almacenado que me saca la fecha de nacimiento de un cliente y calcula la edad del mismo entre otros datos que saco del propio cliente. El problema lo tengo cuando la fecha es nula, me retorna como que el valor es 30/12/1899. Estuve leyendo y ese valor hace referencia al valor cero de la fecha, pero asi mismo no me funciona este codigo que es donde calculo la edad:

Código SQL [-]
        if(:fecha_nacimiento is not null)then
          begin           
            tmp=CURRENT_DATE - :fecha_nacimiento;
            edad=EXTRACT(YEAR from tmp);
          end
        else
          begin
            edad=0;
          end

Agradezco si alguien me tira una mano.
Gracias y saludos!!!

[Casimiro Noteví]

¿Estás seguro que la fecha es nula?, seguramente tiene puesto cero, ¿lo has comprobado?

Por cierto, estaría bien saber qué base de datos es.

[rruffino]

Hola! gracias por la respuesta, estoy usando firebird 2.1, en dialecto 3. Efectivamente cuando me fijo en la base de datos en la tabla los datos figuran como nulos y no ceros.
Saludos!

[Casimiro Noteví]

Pero en el código que has puesto, el valor de fecha_nacimiento, es una variable/parámetro, eso no lo obtiene de la base de datos

[rruffino]

Es uno de los varios parametros de salida que tengo en el procedimiento almacenado que estoy haciendo. El dato de fecha de nacimiento lo saco de la tabla clientes y lo paso a ese parametro.
Saludos!

[Casimiro Noteví]

Y cuando es nulo, ¿qué le pasas?, ¿dónde está el código?

[rruffino]

Este es el cuerpo del procedimiento:

Código SQL [-]
      
      for select id_integrante, apellido_nombre, tipo_doc, numero_documento, fecha_nacimiento,
                 inicio_vigencia, parentesco, residencia
      from INTEGRANTE_GRUPO_FAMILIAR
      where cliente=:num_cliente and
            marcado=0
      into :id_integrante, :apellido_nombre, :tipo_doc, :numero_documento,
           :fecha_nacimiento, :inicio_vigencia, arentesco, :residencia do
      begin    
        if(fecha_nacimiento is not null)then
          begin           
            tmp=CURRENT_DATE - :fecha_nacimiento;
            edad=EXTRACT(YEAR from tmp);
          end
        else
          begin
            edad=0;
          end
        SUSPEND;

[[RONPABLO]]

Que tal así:

Código SQL [-]
        if(coalesce(:fecha_nacimiento,'1899-12-30') > '1899-12-30')then           
       begin
             tmp=CURRENT_DATE - :fecha_nacimiento;
             edad=EXTRACT(YEAR from tmp);
       end         
      else    
      begin
             edad=0;
      end