Campo data no relatório somente com dia e mês

Delphi

17/06/2004

Amigos, o negocio é o seguinte estou com um relatório de aniversariantes, gostaria que ao emitir a data aparecesse comente com dia e Mês, utilizo uma pesquizar sql e uma query, so que aundo tento formatar o campo utilizando mask ele trava:
o codigo de pesquiza é o seguinte:

procedure TfmAniversariantes.SpeedButton1Click(Sender: TObject);
var
InicioMes,FinalMes:TDateTime;
Ano,Mes,Dia:word;
begin
Application.CreateForm(TfmRelDatAniver,fmRelDatAniver);
with fmRelDatAniver do
begin
DecodeDate(Date,ano,mes,dia);
QConsulta.Close;
QConsulta.Params.ParamValues[´DataInicial´] := strtoint(Edit1.Text);
QConsulta.Open;
fmRelDatAniver.QuickRep1.Preview;
end;
end;

o edit recolhe o mês desejado, tudo esta funcionando como quero porem ao emitir o relatorio sai o ano completo como: 28/01/2004.

Preciso da ajuda.
agradeço antecipamente

Claudio Pinho


Dpinho

Dpinho

Curtidas 0

Respostas

Thomaz_prg

Thomaz_prg

17/06/2004

Bom, quando utilizo Access, faço da seguinte forma:

SELECT nome, CSTR(DAY(dtn))+"/"+CSTR(MONTH(dtn)) AS Data_N 
FROM clientes;


Como vc não citou qual banco de dados usa, se for diferente do access, tente no lugar das funções DAY e MONTH usar a função Extract

Extract( Month From dtn )

ou
Extract( Day From dtn )



GOSTEI 0
Dpinho

Dpinho

17/06/2004

Bom, quando utilizo Access, faço da seguinte forma: 
SELECT nome, CSTR(DAY(dtn))+"/"+CSTR(MONTH(dtn)) AS Data_N 
FROM clientes;
Como vc não citou qual banco de dados usa, se for diferente do access, tente no lugar das funções DAY e MONTH usar a função Extract 
Extract( Month From dtn )
ou 
Extract( Day From dtn )


Utilizo o Paradox com delphi 7, onde coloco estas linhas, ja tentei o extract e não saiu como quero


GOSTEI 0
POSTAR