Dicas - Data por extenso no QuickReport

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja como mostrar uma data por extenso no Quick Report.

Data por extenso no QuickReport

 

Se você precisa mostrar uma data por extenso no QuickReport, utilize o seguinte código:

 

procedure DataExtenso(aControl: TControl);

var

  nrdia: Integer;

  diasemana: array[1..7] of string;

  meses: array[1..12] of string;

  dia, mes, ano: Word;

begin

  diasemana[1]:= 'Domingo';

  diasemana[2]:= 'Segunda-feira';

  diasemana[3]:= 'Terça-feira';

  diasemana[4]:= 'Quarta-feira';

  diasemana[5]:= 'Quinta-feira';

  diasemana[6]:= 'Sexta-feira';

  diasemana[7]:= 'Sábado';

  meses[1]:= 'Janeiro';

  meses[2]:= 'Fevereiro';

  meses[3]:= 'Março';

  meses[4]:= 'Abril';

  meses[5]:= 'Maio';

  meses[6]:= 'Junho';

  meses[7]:= 'Julho';

  meses[8]:= 'Agosto';

  meses[9]:= 'Setembro';

  meses[10]:= 'Outubro';

  meses[11]:= 'Novembro';

  meses[12]:= 'Dezembro';

  DecodeDate(Date, ano, mes, dia);

  nrdia:= DayOfWeek(Date);

  if aControl is TQRLabel then

    (aControl as TQRLabel).Caption := diasemana[nrdia]+

      ', '+IntToStr(dia)+' de '+meses[mes]+

        ' de '+IntToStr(ano);

end;

 

Se você quiser adaptar o código para qualquer outro componente, altere o parâmetro aControl para o tipo de componente (TEdit, TLabel etc.) e também a data desejada (nesse código a data padrão é a data do dia). No evento OnBeforePrint do relatório, basta chamar o procedimento criado anteriormente:

 

DataExtenso(QRLabel1);

 

Luciano Pimenta®

Editor do Portal ClubeDelphi.Net

webeditor@clubedelphi.net

www.clubedelphi.net

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?