Buscar por:

Data completa por extenso

Código

{

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