Fórum Arquivotxt X data #165079
06/06/2003
0
problema é que no arquivo tenho um dado 08062002 e tenho que converter ele para data e entrar na minha base:
datamodule.tabelacampo.value:=strtodate(copy(linler,111,8);
erro diz que 08062002 não é uma data valida!
porque ? se estou convertendo !
Midas
Curtir tópico
+ 0Posts
06/06/2003
Motta
Copy
EncodeDate :idea:
Gostei + 0
06/06/2003
Midas
Gostei + 0
06/06/2003
Midas
data corretamento 08062002
porque ele diz que a data é invalida ?
eu teria que decompor a data novamente e montá-la novamente ?
resolveria ?
Gostei + 0
06/06/2003
Salomao
Como você já têm o conhecimento de utilização da função copy, Tente fazer assim:
Para transformar str em date você deve informar o seguinte 08/06/2002, sendo assim utilize uma função para acrescentar os caracteres ´/´, seria mais ou menos assim:
function txtstr(linler : string ,index : integer) : string;
var dia, mes, ano : string;
begin
dia:=copy(linler,index,2);
mes:=copy(linler,index+2,2);
ano:=copy(linler,index+4,4);
result:=dia+´/´+mes+´/´+ano;
end;
na coversão utilize;
datamodule.tabelacampo.value:=strtodate(txtstr(linler,111));
Ainda não testei mas pode dar certo!
espero ter ajudado!
salomaosoares@bol.com.br
Gostei + 0
06/06/2003
Midas
ebaaaaaaaaaaaaaaaaaaaaaaaaaa :lol:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)