When posting code try to format it as such, with the code tags at the top of the edit window.
vb Code:
Public Function Wind(Direction As Integer, Speed as Integer) As Integer If Direction > 0 And Direction <= 10 And Speed > 15 Then Wind = 1 Else Wind = 0 End If End Function




Reply With Quote