How to check if number is divisible by 6

[jmilliken]

OK, so I need to know in several spots in my code that a number is both divisible by 6 and is less than 50*6... (300). I have been doing it by using the following code...

Please Login or Register  to view this content.

I know the better way to do it is to call a function that returns a t/f Boolean... but I've never used functions before and having trouble getting it to work.

I'm self taught in VBA with over 10 years of experience, and I need to learn how to start making code more efficient..... thanks!

[millz]

Are you trying to change the condition? Here is what it looks with an If statement.

Please Login or Register  to view this content.

[Arkadi]

You can use functions to return values. Millz example is a good way of simplifying your code without going to a function, but if you were to, then you could use a boolean variable in your main sub, and then use it to call the function. For example you use a variable "test" in your main routine, and it is dimmed as a boolean.... then you have a function that does the analysis, and returns a boolean value:

in main sub: test = function_that_checks(value_to_check)
then the function looks something like:

Please Login or Register  to view this content.

sorry it is not a very elaborate example, but is hopefully enough to illustrate the point?

[Leith Ross]

You can take this one step further. Since the return value of a Function is initialized to a default value, you can skip the "Else" portion. The default value for a Boolean value is false.

Please Login or Register  to view this content.

[jmilliken]

ok... but when I call the function.... how do I pass the variable I need evaluated to the function. Does the function use the value that is currently assigned to the variable at the time it's called?

I wrote this as a quick test, and I get a compile error "argument not optional" on the line "call checks"

Please Login or Register  to view this content.

help please! thanks!

[Leith Ross]

Hello jmilliken,

It is a single line If statemnt is should be like this...

Please Login or Register  to view this content.

[jmilliken]

ok... I got it to work....

Please Login or Register  to view this content.

I think I got it from here. thanks everybody!

[Leith Ross]

Hello jmilliken,

You're welcome. I will mark this post as solved.

[mikerickson]

I have a pet peeve against If statements that set a boolean value

Please Login or Register  to view this content.

[jmilliken]

ALWAYS LEARNING!!!! Thanks all!