Which is more efficient?

[RyanH]

I have a button that is used to make several calculations using a value from
a textbox (tbxQuantity) in my UserForm. This value could be used 10 to 100
times in one procedure. I was wondering what would be the most efficient way
of writng my equations. When I mean efficient I mean speed. Which is more
efficient?

Sub Calculate()

Dim Qty as Integer

Qty = Val(tbxQuantity)
Price = Cost * MarkUp * Qty

End Sub

or

Sub Calculate()

Price = Cost * MarkUp * Val(tbxQuantity)

End Sub

Thanks in Advance!

 

[Tim Zych]

Out of those options, the 2nd is faster in my simple test. 10,000,000
iterations clocked in approximately .455% faster (1.3174 seconds VS 1.3234
seconds). A few thousand iterations will not be noticeable.

 

[RyanH]

How do you do that time study? I would guess something like this. Tell me
if I am correct or if you have a better way.

Sub Calculate()

starttime = Format(Date, "mm.ssss")

'my code here

endtime = Format(Date, "mm.ssss")

End Sub

 

[PeterA]

Ryan,



Use:

Sub Timerr()
Dim StartTime as Date
StartTime = Timer
<Code here>
Msgbox format(timer-StartTime, "0.00")
End sub


HTH

PeterA

 

[Dave Peterson]

Which one is easier for you to understand?

Which one is easier for you to modify when (not if) you have to?