• oleg
  • Member
  • Offline
  • Registered: 2023-09-01
  • Posts: 31

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.
Буду очень признателен.

  • oleg
  • Member
  • Offline
  • Registered: 2023-09-01
  • Posts: 31

Re: Прошу помощи с формулой

Я немного не уточнил. Из ComboBox  данные вставляются в Edit. То есть ComboBox2 = Edit4, ComboBox4 = Edit3, ComboBox5 = Edit2, Edit5 здесь будет результат вычислений.  В итоге надо Edit2 * Edit3 -Edit4% = Edit5