Código
o Dual pelo nome da sua tabela,
o sysdate pelo campo date desejado
-- segue o select
select
sysdate,
to_char(sysdate,'dd/mm') dia_mes,
case when to_char(sysdate,'dd/mm') between '21/03' and '20/04' then 'Aries'
when to_char(sysdate,'dd/mm') between '21/04' and '20/05' then 'Touro'
when to_char(sysdate,'dd/mm') between '21/05' and '20/06' then 'Gemeos'
when to_char(sysdate,'dd/mm') between '21/06' and '21/07' then 'Cancer'
when to_char(sysdate,'dd/mm') between '22/07' and '22/08' then 'Leao'
when to_char(sysdate,'dd/mm') between '23/08' and '22/09' then 'Virgem'
when to_char(sysdate,'dd/mm') between '23/09' and '22/10' then 'Libra'
when to_char(sysdate,'dd/mm') between '23/10' and '21/11' then 'Escorpiao'
when to_char(sysdate,'dd/mm') between '22/11' and '21/12' then 'Sagitario'
when to_char(sysdate,'dd/mm') between '22/12' and '20/01' then 'Capricornio'
when to_char(sysdate,'dd/mm') between '21/01' and '19/02' then 'Aquario'
when to_char(sysdate,'dd/mm') between '20/02' and '20/03' then 'Peixes'
else 'Erro_Dt' end desc_signo
from dual
group by
case when to_char(sysdate,'dd/mm') between '21/03' and '20/04' then 'Aries'
when to_char(sysdate,'dd/mm') between '21/04' and '20/05' then 'Touro'
when to_char(sysdate,'dd/mm') between '21/05' and '20/06' then 'Gemeos'
when to_char(sysdate,'dd/mm') between '21/06' and '21/07' then 'Cancer'
when to_char(sysdate,'dd/mm') between '22/07' and '22/08' then 'Leao'
when to_char(sysdate,'dd/mm') between '23/08' and '22/09' then 'Virgem'
when to_char(sysdate,'dd/mm') between '23/09' and '22/10' then 'Libra'
when to_char(sysdate,'dd/mm') between '23/10' and '21/11' then 'Escorpiao'
when to_char(sysdate,'dd/mm') between '22/11' and '21/12' then 'Sagitario'
when to_char(sysdate,'dd/mm') between '22/12' and '20/01' then 'Capricornio'
when to_char(sysdate,'dd/mm') between '21/01' and '19/02' then 'Aquario'
when to_char(sysdate,'dd/mm') between '20/02' and '20/03' then 'Peixes'
else 'Erro_Dt' end
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009