1
Calcular el valor máximo que puede almacenarse en un entero , incluyendo las siguientes líneas en el programa de Visual Basic : Dim
maxInteger As Integer
maxInteger = 2 ^ ( Len ( maxInteger ) * 8-1 ) -1
2
Comprobar si el valor de largo que desea convertir a ataques entero dentro del rango de valores que puede contener un número entero , como en este código de ejemplo :
sampleLong Dim As Long
' Calcular el valor de sampleLong
If ( ( sampleLong > maxInteger ) O ( sampleLong <- maxInteger - 1 ) ) Luego
handleOutOfBounds
End If
Sustituya la invocación a subrutinas " handleOutOfBounds " por la forma en que el programa maneja el caso del valor Long no es convertible en una . Integer
3
Convierte el valor a largo en un entero , como en este ejemplo de código:
sampleInteger Dim As Integer
sampleInteger = CInt ( sampleLong )
Después de ejecutar la invocación de una función de función " CInt ()" , sampleInteger contendrá el mismo valor que sampleLong .