Experimente a função abaixo e veja se ela funciona (fiz ela agorinha,
nem tive como testar ainda):
function YYYYMMDDToDateTime(const s: string): TDateTime;
var
lOldDateFormat: string;
begin
lOldDateFormat := ShortDateFormat;
ShortDateFormat := 'yyyymmdd';
try
try
Result := DateToStr(s);
except
Result := 0;
end;
finally
ShortDateFormat := lOldDateFormat;
end;
end;
Sds.
--- Em delphi-br@yahoogrupos.com.br, Celio Bernardo <[EMAIL PROTECTED]>
escreveu
>
> Amigos tenho uma data no formato 'AAAAMMDD' tipo '20080122'
> e quero transforma-la em 22/01/2008.
>
> PS: Parece ser muito simples, mas depois de horas trabalhando nao
consigo mais pensar.
>
> Agradeço ajuda.
>
> Celio.
>
>
>
> ---------------------------------
> Célio Bernardo de Lima
> Diretor de Projetos e Novas Tecnologias
> siatech.com.br
> ---------------------------------
>
>
> ---------------------------------
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
