Buscar

Formata Data

Código

function FormataData(data:String):TDateTime;
  begin
    Result:= StrToDate(copy(data,9,2)+'/'+copy(data,6,2)+'/'+copy(data,3,2))
  end;

   

Publicidade

Vote na dica




Quantidade de votos: 2 votos
Aceitação: 20%

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 17/06/09
Por: Denilson De Andrade
Visualizada: 9888 vezes

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