Topic: Прошу помощи с формулой
Помогите написать формулу в скрипте. В математике знаю а тут не пойму как правильно составить. Прилагаю небольшую часть кода
procedure CalculateTotal;
var
RentdayPrice, RentNumberdays: integer; ///Присваиваем значение цене в сутки
Total, Skidka: double;
begin
Skidka := FrmRent.ComboBox3.dbItemID; //Скидка
RentdayPrice := FrmRent.ComboBox4.dbItemID; //Цена за сутки
RentNumberdays := FrmRent.ComboBox5.dbItemID; //Количество дней
if RentdayPrice <> -1 then
Total := StrToFloat(SQLExecute('SELECT RentdayPrice FROM Type_Equipment WHERE id='+IntToStr(RentdayPrice)));
if ValidFloat(FrmRent.Edit4.Text) then
Skidka := StrToFloat(FrmRent.Edit4.Text);
Total := RentdayPrice * RentNumberdays * (1 - Skidka / 100); // Рассчитываем общую стоимость
FrmRent.Edit5.Text := IntToStr(Round(Total));
Надо RentdayPrice умножить на RentNumberdays, а от результата отнять %. Процент это Skidka.
Буду очень признателен.