Como el to_char de ORACLE

[RaulChemical]

Hola Foreros!!!!

Me gustaria saber como puedo hacer algo asi como esto:

Código SQL [-]
select to_char(FECHACOMPRA, 'Month'), cantidad
from compras
where .....

para que me salga el literal del mes (Octubre, Noviembre...) y el resto de campos en la select.

He buscado desde el ibexpert funciones pero no he encontrado nada y lo que se me ha ocurrido es hacer una funcion que reciba una fecha y devuelva el literal del mes. Algo asi:

Código SQL [-]
select mes_fecha(FECHACOMPRA), cantidad
from compras
where .....

De momento he hecho la select asi:

Código SQL [-]
select extract(month from FECHACOMPRA)mes, cantidad
from compras
where .....

y luego desde delphi cambiare el mes numerico por el mes en letra.

El problema es que no se como crear funciones, ya que solo puedo crear pocedimientos. Lo que necesito es una funcion para usarla al igual que uso el extract de la select anterior.

De momento me he picado un procedure, pero no se si esto lo puedo meter en la select:

Código SQL [-]
CREATE PROCEDURE MES_FECHA(
    FECHA DATE)
RETURNS (
    RESULTADO VARCHAR(20))
AS
DECLARE VARIABLE sMes VARCHAR(2);
begin
  sMes = extract(month from Fecha);
  if (sMes = '1') then
    resultado = 'ENERO';
  else if (sMes = '2') then
    resultado = 'FEBRERO';
  else if (sMes = '3') then
    resultado = 'MARZO';
  else if (sMes = '4') then
    resultado = 'ABRIL';
  else if (sMes = '5') then
    resultado = 'MAYO';
  else if (sMes = '6') then
    resultado = 'JUNIO';
  else if (sMes = '7') then
    resultado = 'JULIO';
  else if (sMes = '8') then
    resultado = 'AGOSTO';
  else if (sMes = '9') then
    resultado = 'SEPTIEMBRE';
  else if (sMes = '10') then
    resultado = 'OCTUBRE';
  else if (sMes = '11') then
    resultado = 'NOVIEMBRE';
  else if (sMes = '12') then
    resultado = 'DICIEMBRE';
  suspend;
end

Muchas gracias a todos por vuestra ayuda.

Raul.