Question

你好:)我有一个这样的公式

Dim numbHolder as Decimal = 'Anything i will send'
If val(txtbox1.text) <= 9 then
 txtbox2.text = numbHolder * (0.0 & val(txtbox1.text))
else
 txtbox2.text = numbHolder * (0. & val(txtbox1.text))
end if

是否有一种最简单的方法或功能可以用来乘以百分比的任何数字？因为在我的情况下，如果数字不大于9，我必须先检查它这样我就可以使用正确的公式，例如0.09而不是0.9等等。

Answer 1

如果我是你，我会避免在一个地方混合Val和计算。尝试将解析和填充文本字段与计算分开：

' Parse/Load Values
Dim numbHolder As Decimal = 10 'Anything i will send'
Dim percentage As Decimal = CType(Val(txtbox1.Text), Decimal) / 100

' Calculate
Dim result = numbHolder * percentage

' Populate
txtbox2.Text = result.ToString()

将数字乘以百分比值的最简单方法

1 个答案: