a general math question....

[SDittmar]

Im trying to convert bytes to kilobytes or megabytes and back again. I have these two functions:

 

Function DivideTimes(Byval number As Single, iterations As Integer) As Single

Dim x As Integer

 

For x = 1 to iterations

number /= 1024

Next

 

Return number

 

End Function

 

Function TimesTimes(ByVal number As Single, iterations As Integer) As Single

Dim x As Integer

 

For x = 1 to iterations

number *= 1024

Next

 

Return number

End Function

 

My question is, is there a more efficient way to do these functions? they just seem kinda clunky...

[divil]

To divide:

 

number /= (1024 ^ iterations)

 

To multiply:

 

number *= (1024 ^ iterations)

[SDittmar]

thanx!