Help with a Fibonacci function

[chipp300]

Hello everyone

I have figured out how to write a program to produce the nth Fibonacci number, but now I want to figure out a way to find the sum of all odd Fibonacci numbers less than one million. This is my working Fibonacci program:

Please Login or Register  to view this content.

How can I rewrite this function to find the sum of all odd Fibonacci numbers less than one million? As long as I can print it out to the immediate window is all I really need. Any assistance is greatly appreciated. Thank you!

[shg]

You have a problem -- your function will only generate up to the 46th Fibonacci number before it exceeds the allowable range of a Long. Fibonacci(1474) is about 5E307, close to the largest number a Double can store. There is no data type in VBA that could store the size of numbers the calculation would require; I think you would need to do string arithmetic.

[chipp300]

What if I were to use a constant input of 30 instead? Because anything above 30 returns a Fibonacci number > 1,000,000. If I do it that way, could the function be rewritten to sum all the odd Fibonacci numbers? And if so, how can it be done?

[martindwilson]

there are 31 or 30 nos < 1000000 depending on whether you use 0,0 or 0,1 as your starting point

[shg]

I misread your question; I thought you meant to sum odd F numbers through the 1 millionth.

Please Login or Register  to view this content.

[chipp300]

Thank you for the help, shg, it really cleared things up for me