Buscar por:

Formatando data para dia o nome do mes e o ano

Código

Em busca de uma solução para o meu problema e pela falta de respostas eu juntei diversas informações captadas na net para montar esta procedure, é facil e rapida de se entender, o usuario informa a data normal 12/02/06  e a procedure mostra a data na forma de 12 de fevereiro de 2006

veja abaixo 

function gerardatas (data : Tdatetime) : string

var

  mes, dia, ano, dataformal : string;

  year, month, day: word;

begin

   DecodeDate(data, year , month, day);

   dia := inttostr(day);

   ano := IntToStr(year);

   case month of

     1 : mes := 'Janeiro';

     2 : mes := 'Fevereiro';

     3 : mes := 'Março';

     4 : mes := 'Abril';

     5 : mes := 'Maio';

     6 : mes := 'Junho';

     7 : mes := 'Julho';

     8 : mes := 'Agosto';

     9 : mes := 'Setembro';

    10 : mes := 'Outubro';

    11 : mes := 'Nobembro';

    12 : mes := 'Dezembro';

   end;

   dataformal := dia + ' de ' + mes + ' de ' + ano;

result : dataformal;

end;