Buscar por:

Data por extenso, o modo mais simples

Código

{Pra quem ja teve muita dor de cabeca com data por extenso em formularios ou relatórios importantes aí vai uma dica muito simples. O procedimento abaixo deve ser colocado no evento onStartPage de seu QuickReport}

procedure TFRM_IMP_ROL.QuickRep1StartPage(Sender: TCustomQuickRep);

const

   Meses: array [1..12] of String =('Janeiro', 'Fevereiro','Março','Abril','Maio','Junho',

   'Julho','Agosto','Setembro','Outubro','Novembro','Dezembro');

var

   Presente: TDateTime;

   Year, Month, Day: Word;

   Mes: Integer;

   Dia, Ano, Extenso: String;

begin

   Presente := Now;

   DecodeDate(Presente, Year,Month,Day);

   Dia := IntToStr(Day);

   Mes := (Month);

   Ano := IntToStr(Year);

   QRLExtenso.Caption := 'Natal / RN, ' + Dia +' de '+ Meses[Mes] +' de '+ Ano + '.';

end;

//Espero ter ajudado. 

//Abraço

(net.diego@bol.com.br)