Buscar por:

Função para Retornar Data por Extenso (Atualizada)

Código

Function DataPorExtenso: String;

const

  Meses : array[1..12] of String = ('Janeiro','Fevereiro','Março','Abril','Maio',

                                     'Junho','Julho','Agosto','Setembro','Outubro',

                                     'Novembro','Dezembro');

  Semana : array[1..7] of String = ('Domingo','Segunda-Feira','Terça-Feira','Quarta-Feira',

                                     'Quinta-Feira','Sexta-Feira','Sábado');

var

  Dia,Mes,Ano,Diasem: word;

begin

   DecodeDate(Date,Ano,Mes,Dia);

   Diasem := dayofweek(Date);

   result :=Semana[Diasem] + ' - ' + IntToStr(Dia) + ' de '+ Meses[mes] + ' de ' + IntToStr(Ano) + '. ';

end;