Delphi dicas

Data completa por extenso

{

Para criar uma função que rotorna a data por extenso, primeiro crie a função abaixo, que retorna o mês por extenso.

}



function MesExtenso2(NumMes:byte):String;

var Meses: array[1..12] of String[15];

begin

        Result:='';

        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';

        Result:= Meses[NumMes];

end;



{Abaixo a função Data por extenso}



function DataPorExtenso2(Data:TDate):String;

var Ano,Mes,Dia:word;

begin

        DecodeDate(Data,Ano,Mes,Dia);

        Result:= IntToStr(Dia)+' de '+MesExtenso2(Mes)+' de '+IntToStr(Ano);

end;



// Para chamar a função:



// DataPorExtenso2(Now);

// assim a função retornará, por exemplo: 12 de Janeiro de 2007

por : Ricardo Scache Belardinuci