Вчера долго писал одну процедуру, т.к. довольно часто "лители" Overflow...
Вот чего имеется:
- Код: Выделить всё
Private Sub Proc()
Dim a As Byte, b As Long, c As Byte, c2 As Long
a = 250
c = 10
c2 = 10
b = a + a ' Error: Overflow (Переполнение)
b = a + 250 ' Все ОК: b = 500
b = a * c2 ' Error: Overflow (Переполнение)
b = a * c ' Все ОК: b = 2500
End Sub