Fórum Campo data no relatório somente com dia e mês #238341
17/06/2004
0
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
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
Curtir tópico
+ 0
Responder
Posts
17/06/2004
Thomaz_prg
Bom, quando utilizo Access, faço da seguinte forma:
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
ou
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 )
Responder
Gostei + 0
18/06/2004
Dpinho
Bom, quando utilizo Access, faço da seguinte forma:
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
ou
SELECT nome, CSTR(DAY(dtn))+"/"+CSTR(MONTH(dtn)) AS Data_N FROM clientes;
Extract( Month From dtn )
Extract( Day From dtn )
Utilizo o Paradox com delphi 7, onde coloco estas linhas, ja tentei o extract e não saiu como quero
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)