Converter tipo word em string
Já fiz essa pergunta e acho que tentaram me responder mas o endereço que chegou em meu email foi parar em outra pergunta totalmente diferente.
Bem, tenho arquivo com 1000 registros e datas de nascimento diferentes e elas contem um erro: Ao invês de por exemplo: 15/04/1978, esta gravado no arquivo 15/04/2078, estão todas assim, claro que com meses, anos e dias diferentes: 18/05/2080, 26/04/2079...
Tô fazendo uma rotina pra corrigir: gravar no lugar de por exemplo: 18/05/2080 - 18/05/1980 trocar o 20 pelo 19, ai usei o decode, etc pra pegar o ano da data mas vem variavel ano:word - 2080, ai quero pegar apenas 20 e trocar pelo 19 pra gravar 1980, e fazer assim com todas, logicamente cada uma pode ser diferente da outra, ai tento usar o ano:=´19´+copy(ano,3,2) mas não da certo por logicamente são tipos diferentes: word e string, o que devo fazer nesse caso. tem o jeito de converter word em string qual a sintaxe, ou alguém pode me dar outra dica pra resolver o problema. Desde já obrigado.
Bem, tenho arquivo com 1000 registros e datas de nascimento diferentes e elas contem um erro: Ao invês de por exemplo: 15/04/1978, esta gravado no arquivo 15/04/2078, estão todas assim, claro que com meses, anos e dias diferentes: 18/05/2080, 26/04/2079...
Tô fazendo uma rotina pra corrigir: gravar no lugar de por exemplo: 18/05/2080 - 18/05/1980 trocar o 20 pelo 19, ai usei o decode, etc pra pegar o ano da data mas vem variavel ano:word - 2080, ai quero pegar apenas 20 e trocar pelo 19 pra gravar 1980, e fazer assim com todas, logicamente cada uma pode ser diferente da outra, ai tento usar o ano:=´19´+copy(ano,3,2) mas não da certo por logicamente são tipos diferentes: word e string, o que devo fazer nesse caso. tem o jeito de converter word em string qual a sintaxe, ou alguém pode me dar outra dica pra resolver o problema. Desde já obrigado.
Marcosaguiar
Curtidas 0
Respostas
Aroldo Zanela
25/04/2003
Marcos,
Tem jeito de fazer da forma que você quer. No entanto, havia uma mensagem do Emerson.EN que orientava para você subtrair 100 da variável ano, obtida pela decodificação da data e converter novamente para data. Acredito que é a melhor soluçào.
Tem jeito de fazer da forma que você quer. No entanto, havia uma mensagem do Emerson.EN que orientava para você subtrair 100 da variável ano, obtida pela decodificação da data e converter novamente para data. Acredito que é a melhor soluçào.
GOSTEI 0
Amjorge
25/04/2003
Caro amigo, creio que seja mais fácil utilizar o DecodeDate, subtrair 100 do ano e usar o EncodeDate
var
a,m,d:Word;
DecodeDate(Data,a,m,d);
a := a - 100;
Data := EncodeDate(a,m,d);
var
a,m,d:Word;
DecodeDate(Data,a,m,d);
a := a - 100;
Data := EncodeDate(a,m,d);
GOSTEI 0