Ensuring Division By 5 on Whole Number VB6

[Qpido]

I am trying to write a piece of code in VB6 that checks to make sure the input is a multiple of 5.

There are 2 text boxes, one with a minimum value and one with a maximum value.

I want the input to go to the nearest rounded 5 divisional possibility.

Where do I begin?

I then export these to Excel for posting (which isn't the problem in this case, just FYI).

Thanks for your advice.

Jerome

 

[wigi]

I am trying to write a piece of code in VB6

Hello Jerome

This is a forum on VBA within Excel, not VB6.

You could use the function MROUND in Excel and also in VBA:

For instance:

MsgBox WorksheetFunction.MRound(CDbl(TextBox1.Text), 5)

 

[doofusboy]

In VB6 you could use the Mod operator to determine if a number is divisible by 5. The Mod operator returns a 'remainder' if one nubmer is not divisible by another.

If CLng(YourTextBox.Text) Mod 5 > 0 Then
     MsgBox "Not divisible by 5"
End If