Overflow error
 

Hi,

I've created a simple funcion to calculate the volume based on three inputs,
height, width and depth. I've make the variables bytes. When the result of
the volume is over 255 I get an overflow error. See the function below:

Function volume(height As Byte, width As Byte, depth As Byte)
volume = height * width * depth

End Function
--------------------------
Sub test()

Debug.Print volume(12, 22, 1)

End Sub

Can anyone help with why I'm getting the error. Thanks in advance

Regards
Janet

Overflow error
 

You should specifiy the datatype of the return value, and maybe also dim
your parameters as integer.

The error is because your multiplication is producing a value too large for
the variable's size.


Tim




"Grd" wrote in message
...
Hi,

I've created a simple funcion to calculate the volume based on three
inputs,
height, width and depth. I've make the variables bytes. When the result of
the volume is over 255 I get an overflow error. See the function below:

Function volume(height As Byte, width As Byte, depth As Byte)
volume = height * width * depth

End Function
--------------------------
Sub test()

Debug.Print volume(12, 22, 1)

End Sub

Can anyone help with why I'm getting the error. Thanks in advance

Regards
Janet