Uso a função extract, que se não me engano é da UDF rfunc...

A procedure abaixo retorna o dia da semana.
[ ]s...

Jefferson.


CREATE PROCEDURE FUN_DT_DIA_SEMANA(
    I_DT_DATA DATE)
RETURNS (
    O_D3_DIASEMANA CHAR(3),
    O_D7_DIASEMANA VARCHAR(7),
    O_NR_DIA INTEGER,
    O_DS_MENSAGEM VARCHAR(3000))
AS
begin
 O_DS_MENSAGEM=NULL;
 if (I_DT_DATA is NULL) then
  begin
   O_DS_MENSAGEM='FUN_DT_DIA_SEMANA >> I_DT_DATA Nula';
   suspend;
   exit;
  end
 O_NR_DIA=extract(weekday from I_DT_DATA);

 if (O_NR_DIA=0) then
  begin
   O_D3_DIASEMANA='DOM';
   O_D7_DIASEMANA='DOMINGO';
  end
 else
 if (O_NR_DIA=1) then
  begin
   O_D3_DIASEMANA='SEG';
   O_D7_DIASEMANA='SEGUNDA';
  end
 else
 if (O_NR_DIA=2) then
  begin
   O_D3_DIASEMANA='TER';
   O_D7_DIASEMANA='TERCA';
  end
 else
 if (O_NR_DIA=3) then
  begin
   O_D3_DIASEMANA='QUA';
   O_D7_DIASEMANA='QUARTA';
  end
 else
 if (O_NR_DIA=4) then
  begin
   O_D3_DIASEMANA='QUI';
   O_D7_DIASEMANA='QUINTA';
  end
 if (O_NR_DIA=5) then
  begin
   O_D3_DIASEMANA='SEX';
   O_D7_DIASEMANA='SEXTA';
  end
 if (O_NR_DIA=6) then
  begin
   O_D3_DIASEMANA='SAB';
   O_D7_DIASEMANA='SABADO';
  end
 suspend;
end









Em 14/08/06, Gleidison S. Bertolini <[EMAIL PROTECTED]> escreveu:
>
> Pessoal,
>     Alguém sabe uma função para retornar o nº ou o nome do dia da semana
> em Firebird?
>
> Preciso fazer um agrupamento mas quero que os dias que não tiverem
> registros voltar 0. Exp.:
>
> 14/08/2006                       0,00
> 15/08/2006                       0,00
> 16/08/2006                     10,00
> 17/08/2006                       0,00
> 18/08/2006                     20,00
>
>
>
> Obrigado..
>
> Gleidison
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a