Arquivotxt X data
estou com uma dúvida brothers ... estou fazendo um programa para ler um arquivo txt e jogar os dados na base .. ate ai tudo bem ...
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 !
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
Curtidas 0
Respostas
Motta
06/06/2003
veja no help
Copy
EncodeDate :idea:
Copy
EncodeDate :idea:
GOSTEI 0
Midas
06/06/2003
valeu mota ...
GOSTEI 0
Midas
06/06/2003
cara esta função seria para montar uma data, mas acontece que eu tenho a
data corretamento 08062002
porque ele diz que a data é invalida ?
eu teria que decompor a data novamente e montá-la novamente ?
resolveria ?
data corretamento 08062002
porque ele diz que a data é invalida ?
eu teria que decompor a data novamente e montá-la novamente ?
resolveria ?
GOSTEI 0
Salomao
06/06/2003
Caro amigo!
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
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
Midas
06/06/2003
valeu meu amigo deu tudo certo aqui....
ebaaaaaaaaaaaaaaaaaaaaaaaaaa :lol:
ebaaaaaaaaaaaaaaaaaaaaaaaaaa :lol:
GOSTEI 0