OVERFLOW

USUARIO.EXCLUIDOS 19/04/2004 12:52:36
#21333 Resposta escolhida

Veja...

Dim x As Double
Dim y As Long
x = 328000
y = 328000
x = CLng(328) * CLng(100)
Assim funciona...

Veja este outro exemplo...
Dim y As Double
x = 328000
y = 328000
x = CDbl(328) * CDbl(1000000)

é que o VB armazena literal como Integer e o resultado em um espaço do tipo dos parà¢metros.

Mas sugiro que trabalhe com constantes do que utilizar as funções de conversão.

Dim x As Double
Dim y As Long
Const a As Double = 328
Const b As Double = 100

x = 328000
y = 328000
x = a * b

Espero ter ajudado!