Res: [delphi-br] Converter para Data

function ConvertDate( Data : String ) : TDateTime; begin Result := StrToDate( Copy( Data,1,2 ) + '/' + Copy( Data,3,2 ) + '/' + Copy( Data,5,2 ) ); end; ---Mensagem original--- De: Cristiano Rodrigo Gomes Data: 08/25/05 07:55:35 Para: delphi-br@yahoogrupos.com.br Assunto:

RES: [delphi-br] Converter para Data

O que voce deverá fazer pra este caso é; var sDate: String; begin sDate := Copy('240444',1,2) + '/' + Copy('240444',3,2) + '/' Copy('240444',5,2); end; []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL