Delphi dicas

Formatando data para dia o nome do mes e o ano

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;