Remainders When Dividing?

[Dannybe2]

How do I divide a number by another and create a remainder:

Eg.
1523 / 60 = 25.3833333
1523 / 60 = 25 R23

 

[Quehay]

Not sure if there's something more efficient...

You could use:

Dim sglRMNDR as single

sglRMNDR = (n1 / n2) - (n1 \ n2)

The second operator (\)is the Integer Division operator.

 

[kevinclark]

If there is no function available you could create your own


Example

Sub Button1_Click()
MsgBox GetRemainder(23, 5)
End Sub


Function GetRemainder(Num1 As Integer, Num2 As Integer) As Integer
MyVal = Num1 \ Num2
GetRemainder = Num1 - (MyVal * Num2)
End Function

 

[MisterC]

1523 MOD 60 --------------
A little knowledge is a dangerous thing.