Año en firebird

[linuz]

Hola a todos,

He estado buscando información en el foro acerca de como conseguir el año actual en firebird, si existe alguna funcion para ello.
La función que me devuelve la fecha actual es 'today', pero no he logrado saber como coger el año.

Si este hilo esta repetido pido porfavor a los moderadores que borren este mensaje.

Utilizo FIB 1.5 y Delphi 7.

Muchas gracias por todo.

[Casimiro Notevi]

Extract (Year From Fecha)

[linuz]

Gracias Casimiro notevi,pero lo que estoy intentando hacer es esto:

Código SQL [-]
create trigger empresas_ai0 for EMPRESAS active after insert position 0
as
declare variable anyo integer;
begin
anyo = Extract (Year From 'TODAY');

insert into ejercicios
(ejercicio,empresa,codigo)
values
(:anyo,new.codigo,0);
end

Me da el siguiente error:

ERROR: ISC ERROR CODE:335544569

ISC ERROR MESSAGE:
Dynamic SQL Error
SQL error code = -105
Specified EXTRACT part does not exist in input datatype

gracias por la ayuda.

[Casimiro Notevi]

En tu caso será algo así:

CREATE PROCEDURE NEW_PROCEDURExxx
as
declare variable agno integer;
begin
    select extract (year from fecha)
    from t_fichas
    into :agno;
end

[gendelphi]

Código SQL [-]
create trigger empresas_ai0 for EMPRESAS active after insert position 0
as
declare variable anyo integer;
begin
SELECT EXTRACT(YEAR from CURRENT_DATE)
FROM RDB$DATABASE
into :anyo;

insert into ejercicios
(ejercicio,empresa,codigo)
values
(:anyo,new.codigo,0);
end