TRANFORMAR NÚMERO EM DECIMAL NO VB6

MARCELOKROL 15/05/2022 11:58:52
#499837 Resposta escolhida

Simples assim:

  
Dim resultado as double
resultado = cdbl("0000000188042") / 100;
 

Obs: Onde esta aspas simples, mude para aspas duplas. O VbMania esta alterando automaticamente de duplas para simples

ARES 15/05/2022 12:54:41
#499838

Marcelo, boa tarde!

Obrigado pela ajuda.
Infelizmente não consegui... Veja como está meu código:

Dim xvalor, xvalor1 as double

xvalor = Mid(sLine, 254, 13)
xvalor1 = CDbl("xvalor") / 100
Me.txtvalor = Replace(xvalor1, ".", vbNullString)

Está me retornando erro no xvalor1 TYPE MISMATCH

MARCELOKROL 15/05/2022 16:30:57
#499843

coloque um breakpoint na linha que contem o código: xvalor1 = CDbl("xvalor") / 100 e veja o conteúdo da variável xvalor, provavelmente o que tem dentro dela é uma string que não pode ser transformada em numero.
O exemplo que te dei era para transformar "0000000188042" em decimal, mas para que isso aconteça perfeitamente tem que fazer as verificações se o que esta se tentando converte contém números possíveis de conversão, ou seja, "nem tudo na vida são flores"

ARES 15/05/2022 18:52:22
#499845

Marcelo, boa noite!

Obrigado pelas dicas...
O erro estava na tentativa de leitura de campos em branco do arquivo retorno do banco.

coloquei um on error resume next e pulou o problema.