Ola amigos sou iniciante em programação e estou montando um sistema de proteção, mas na hora de eu gerar a chave em minha maquina... da uns pepinos pq numeros maiores de 15 caracter aparecem desta forma "2,97600569369369E+25", o que posso fazer nestes casos... se alguem puder me ajudar agradeço... andersomacedo@ubbi.com.br ...... té +

Coloque o código do que vc que fazer... quem sabe não fica mais fácil de ajudar.

Qual o tipo de variavel que voce esta armazenando (é um numero muito grande).

o cógigo é + ou - assim

dim teste as double

dim data as double

 

no load do form

data = date

'recebe o valor da data em numeros

teste = 2145632154665454

'um numero meio grande

text1 = teste * date

'passa de 15 numero ele da erro

 

 

ja testei varias variaveis e nada

Veja

 

data = Datevalue(date)     <<<<<----------- Aqui voce esta jogando adata direto para um Double. Tente Valuedate para transformar a data em numero.

'recebe o valor da data em numeros

teste = 2145632154665454

'um numero meio grande

text1 = teste * data  <<<<---- Colocque aqui a DATA e não DATE.

 

Mesmo assim vai dar um numero muito grande pois é muliplicacao.

 

Uma sujestao. Tente fazer uma protecao de outra forma. Some o Mes multiplique pelo dia ou algo do genero para ficar com numeros um pouco menores.

Assim.

Text = Day(data) + 15 * Month(data)

 

 

Anderson, Caso vc deseje realmente implementar dessa forma vai ter de usar o tipo "decimal" do vb que não pode ser declarado/acessado diretamente . Dê uma olhada na minha resposta no post:

E veja se resolve seu problema. Abraços, Sidnei