Percentage input to textbox

[Lee_S]

Sorry for the simple question, but..

Anyone point me to an example of how i can validate the contents of a textbox to only allow a percentage, ie 0 to 100.00?


All comments gratefully received unless i fall asleep *smile*


lee

[Mega_Man]

Why would you want to validate a percentage to 2 decimal places.
Can;t you just make sure the contents of the test box falls between 0 and 100 instead of 100.00?

Mega.

[chrisjk]

This any good?

Private Sub Text1_Validate(Cancel As Boolean)
 
If Val(Text1.Text) < 1 Then
    MsgBox "Must be at least 1%", vbInformation
    Cancel = True
ElseIf Val(Text1.Text) > 100 Then
    MsgBox "Can't be more than 100%", vbInformation
    Cancel = True
End If
 
End Sub

[Megatron]

Try this.

Dim sInput As String
 
sInput = InputBox("Enter a percent:")
 
If IsNumeric(sInput) Then
    If CSng(sInput) <= 100 And CSng(sInput) >= 0 Then sInput = Format$(sInput, "###.00")
End If

[DaoK]

What is that : CSng?

[chrisjk]

converts a number to single

[AIS_DK]

Converts numbers and strings to a single

[chrisjk]

well if we're going to split hairs...converts an expression to a single data type

[AIS_DK]

Well, since we at it.
Converts any string expression or numeric expression to a single.