VB计算实现取Purchase Price与Vehicle Value较大值核算销售税

核心调整逻辑是将两个输入值转为数值后取较大值作为计税基数，替换原逻辑中仅使用采购价格计算的规则，以下是修改后的代码：

基础修改版本（直接实现需求） #

Else
    ' 将两个输入字段转为双精度数值
    Dim purAmt As Double, vehicleAmt As Double, taxBase As Double
    purAmt = CDbl(PurAmount)
    vehicleAmt = CDbl(VehicleVal)
    ' 取二者较大值作为计税基数
    taxBase = IIf(purAmt > vehicleAmt, purAmt, vehicleAmt)
    ' 计算最终销售税
    SalesTax.Value = taxBase * (Replace(TaxRate, "%", "") * 0.01)
End If

如果你的运行环境支持工作表函数，也可以用WorksheetFunction.Max替换IIf判断：

taxBase = WorksheetFunction.Max(purAmt, vehicleAmt)

增强健壮性版本（增加输入校验） #

如果存在用户输入非数字、空值的场景，建议增加合法性校验避免运行报错：

Else
    ' 校验所有输入是否为合法数值
    If Not IsNumeric(PurAmount) Or Not IsNumeric(VehicleVal) Or Not IsNumeric(Replace(TaxRate, "%", "")) Then
        SalesTax.Value = "输入无效，请检查填写内容"
    Else
        Dim purAmt As Double, vehicleAmt As Double, taxBase As Double, taxRateVal As Double
        purAmt = CDbl(PurAmount)
        vehicleAmt = CDbl(VehicleVal)
        taxBase = IIf(purAmt > vehicleAmt, purAmt, vehicleAmt)
        taxRateVal = CDbl(Replace(TaxRate, "%", "")) * 0.01
        SalesTax.Value = taxBase * taxRateVal
    End If
End If

内容的提问来源于stack exchange，提问作者Alex Galang