我在VB.net If CurrencyHolder.Text > 0 And CurrencyHolder.Text < 10000 Then中出错了
当我执行代码时,我使用的是Maskedinputbox 00000.00,而且Maskedinputbox是空的,我得到以下错误:
**我已尽力翻译:$)讯号的转换。键入double无效
我怎么才能解决这个问题?
发布于 2016-01-07 11:16:08
可以使用瓦尔():-将字符串中包含的数字作为适当类型的数值返回。
If Val(CurrencyHolder.Text) > 0 AndAlso Val(CurrencyHolder.Text) < 1000 Then
'code
End If警告
val()只考虑.来检查小数分隔符,以防最终用户的小数点的lcoale样式不是.,这将不起作用
发布于 2016-01-07 11:32:39
使用Double.Parse/Double.TryParse或Decimal.Parse/Decimal.TryParse。对于货币而言,Decimal是合适的类型。
Dim currency as Decimal
Dim valid as Boolean = Decimal.TryParse(CurrencyHolder.Text, currency)
If valid AndAlso currency > 0 AndAlso currency < 10000 Then
' ... '
End Ifhttps://msdn.microsoft.com/en-us/library/system.decimal.tryparse(v=vs.110).aspx
如果您当前的十进制分隔符与要支持的分隔符不同(F.E。您使用123,50€,但是必须解析的值是123.50$),您可以使用解析方法的重载。例如:
Dim valid As Boolean = Decimal.TryParse(CurrencyHolder.Text, NumberStyles.Currency, NumberFormatInfo.InvariantInfo, currency)https://stackoverflow.com/questions/34653477
复制相似问题