Buscar

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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 29/12/10
Por: Handerson Marcacini
Visualizada: 3364 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009