f？ =? CSng(x)？ *? 3600

End? The function range of integers is between -32768 and +32767. Multiplication is done by integer first, so overflow errors will occur.

Force X to be converted to a single precision (using CSng function) or a long integer (using CLng function), and then you can use it.