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.

[[Héctor Randolph]]

Hola RaulChemical

Puedes crear la función en Delphi como dices y compilarla en una biblioteca DLL, después la declaras dentro de la base de datos como una UDF y con esto la puedes utilizar en una sentencia SQL como precisas.

Puedes buscar más información acerca de esto aquí mismo en el foro, si te atoras en algo ya nos dirás.

Saludos

[rastafarey]

Aqui tienes una solucion mas facil que comer pollo con las manos.

Código SQL [-]
Select 
 case extract(month from Fecha) 
  When 1 then 'Enero'
  When 2 then 'Septubre'
  When 3 then 'MarBril'
  .
  .
  .  
  else 'Discienbrem'
 end as "Nombre largo del mes Rugratt"
from tabla

Espero te isrva de ayuda. (Lo de los nombre des los meses en una broma)

[RaulChemical]

No sabia que hubiese "CASE" en Interbase/firebird.
Va a resultar que Interbase es mas potente de lo que yo pensaba.

Muchisimas gracias.

[Casimiro Notevi]

Empezado por RaulChemical

No sabia que hubiese "CASE" en Interbase/firebird.
Va a resultar que Interbase es mas potente de lo que yo pensaba.

Muchisimas gracias.

Sí, desde la versión 1.5