[Overflow] Error de overflow

[Erik#]

Hola, bueno, estuve haciendo unas multiplicaciones, y me da overflow cuando intento hacer esto:

Código (vb) [Seleccionar] Expandir

hora = Text2.Text * 3600000
minutos = Text3.Text * 60000

en hora puse 0 y minutos 1, bueno eso da igual, lo que pasa esque no me deja ponerle más de 6000 :S.

[‭‭‭‭jackl007]

Hola, ten cuidado con los tipos, el textbox es string, y el numero es integer... son distintos asi que tienes que convertirlos al tipo adecuado para trabajar:

Código (vb) [Seleccionar] Expandir

hora = val(Text2.Text) * 3600000
minutos = val(Text3.Text) * 60000

[Erik#]

Código (vb) [Seleccionar] Expandir

Dim hora As Integer
Dim minutos As Integer
hora = Val(Text2.Text) * 3600000
minutos = Val(Text3.Text) * 60000

Eso es lo que tengo puesto, y aun me da overflow.

[‭‭‭‭jackl007]

Código [Seleccionar] Expandir

[codevb]MsgBox Str(Val("727272") * 3600000)
funciona bien, valida los datos

[cobein]

Un long es un signed 32-bit, asi que no podes pasarte de  el rango de valores que soporta
–2147483648 a +2147483647 .

[Erik#]

Thx a todos.
Consegui arreglarlo.