risolto cosi' un po rozzo ma funziona
Dim val1 AsSingle = 0
If Single.TryParse(Form1.TextBox1.Text, val1) Then
If val1 < 10 Then
val1 = val1 / 1
End If
If val1 > 10 Then
val1 = val1 / 100
End If
End If
risolto cosi' un po rozzo ma funziona
Dim val1 AsSingle = 0
If Single.TryParse(Form1.TextBox1.Text, val1) Then
If val1 < 10 Then
val1 = val1 / 1
End If
If val1 > 10 Then
val1 = val1 / 100
End If
End If