VBA转JavaScript代码后输出结果不符问题排查

你遇到的问题并不是do/while和Do/Loop Until的基础逻辑差异，而是代码里的三个关键错误导致结果完全偏离。让我逐一拆解：

1. 变量拼写错误 #

在你的JavaScript代码的do循环里，有个变量名写错了：

// 错误：少了字母n
MonthInterestAmout=SaldoPrimo*MonthInterest;
// 正确应该是
MonthInterestAmount=SaldoPrimo*MonthInterest;

这个拼写错误导致MonthInterestAmount一直保持初始值0，后续所有依赖这个变量的计算（比如利息累计、剩余本金）全部出错。

2. SaldoUltimo计算公式错误 #

VBA里的剩余本金计算公式是：

SaldoUltimo = SaldoPrimo + MonthFee + MonthInterestAmount - FixedPrice

但你在JavaScript里错误地把MonthInterestAmount（当月实际利息金额）换成了MonthInterest（月利率）：

// 错误
SaldoUltimo=SaldoPrimo+MonthFee+MonthInterest-FixedPrice;
// 正确应该是
SaldoUltimo=SaldoPrimo+MonthFee+MonthInterestAmount-FixedPrice;

这是核心计算错误，直接导致剩余本金的计算完全不符合预期。

3. 循环条件逻辑颠倒 #

VBA的Do...Loop Until [条件]逻辑是：先执行循环体，当条件成立时停止循环；而JavaScript的do...while([条件])逻辑是：先执行循环体，当条件成立时继续循环。

你把VBA的Loop Until SaldoTest < FixedPrice直接转成了while (SaldoTest < FixedPrice)，这就把逻辑搞反了：

• VBA：当SaldoTest < FixedPrice时，停止循环
• 原JS代码：当SaldoTest < FixedPrice时，继续循环

正确的JS循环条件应该是当SaldoTest >= FixedPrice时继续循环，也就是：

} while (SaldoTest >= FixedPrice);

修正后的完整JavaScript代码 #

function calculate() {
  let Duration = 0;
  let SaldoPrimo = 0;
  let SaldoUltimo = 0;
  let MonthInterestAmount = 0;
  let RunningAdm = 0;
  let RunningInterest = 0;
  let ExtraOrdinaryInstallment = 0;
  
  const LoanAmount = parseFloat($('#input_loan_amount').val());
  const FixedPrice = parseFloat($('#input_installment').val());
  const MonthInterest = parseFloat($('#input_monthly_interest').val());
  const OpeningFee = parseFloat($('#input_initial_fee').val());
  const MonthFee = parseFloat($('#input_monthly_fee').val());
  
  SaldoPrimo = LoanAmount + OpeningFee;
  
  do {
    Duration++;
    // 修正：变量名拼写正确
    MonthInterestAmount = SaldoPrimo * MonthInterest;
    // 修正：使用正确的计算公式
    SaldoUltimo = SaldoPrimo + MonthFee + MonthInterestAmount - FixedPrice;
    RunningAdm = RunningAdm + MonthFee;
    RunningInterest = RunningInterest + MonthInterestAmount;
    SaldoPrimo = SaldoUltimo;
    
    if (Duration > 400) { break; }
    
    SaldoTest = SaldoUltimo + (SaldoPrimo * MonthInterest) + MonthFee;
    // 修正：循环条件逻辑与VBA一致
  } while (SaldoTest >= FixedPrice);
  
  if (SaldoUltimo > 0) {
    MonthInterestAmount = SaldoPrimo * MonthInterest;
    Duration++;
    RunningAdm = RunningAdm + MonthFee;
    RunningInterest = RunningInterest + MonthInterestAmount;
    ExtraOrdinaryInstallment = MonthInterestAmount + MonthFee + SaldoUltimo;
    $('#result').html(ExtraOrdinaryInstallment);
  }
  
  SaldoPrimo = 0;
  SaldoUltimo = 0;
  const TotalCost = RunningAdm + RunningInterest + OpeningFee;
  const Totalpay = LoanAmount + TotalCost;
  
  $('#Duration').html(Duration);
  $('#SaldoPrimo').html(SaldoPrimo);
  $('#SaldoUltimo').html(SaldoUltimo);
  $('#RunningAdm').html(RunningAdm);
  $('#RunningInterest').html(RunningInterest);
  $('#TotalCost').html(TotalCost);
  $('#Totalpay').html(Totalpay);
  $('#FixedPrice').html(FixedPrice);
  $('#ExtraOrdinaryInstallment').html(ExtraOrdinaryInstallment);
}

用你提供的参数（贷款额250000、月供3499、月利率0.41、初始费3499、月服务费99）测试，修正后的代码会得到和VBA一致的Duration=90结果。

内容的提问来源于stack exchange，提问作者Albert van Harten