我试图计算以下情形每月支付:为什么德尔福Math.Payment函数返回一个负数
$ 5,000的$ 1,000每月复利8.00%,由于在年底借3年期限。
/*
From Math.pas
function Payment(Rate: Extended;
NPeriods: Integer;
const PresentValue: Extended;
const FutureValue: Extended;
PaymentTime: TPaymentTime): Extended;
*/
var
Pmt : Extended;
begin
Pmt := Payment(0.08/12,36,5000,1000,ptEndOfPeriod);
Edit1.Text := FloatToStr(Pmt);
end
结果= -181.351526101918
的结果是正确的,除了它是负的。
为什么Payment函数的结果返回一个负数?