Delphi dicas

Data por extenso, o modo mais simples

{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)

por : Diego Morais