Мне нужно откорректировать это Кодего для того чтобы разделить, котор дали сумму денег между, котор дали номером такие что количество добавляет до точно итог без ошибок округления но держать к 2 десятичному places It не имеет значение если количество не идентично по мере того как это не будет всегда по возможности например £100/3 но должно уменьшает
If разниц как можно больше по возможности оно должно может предсказать, то количество довольно чем работает путем испытывать их после того как divide был сделан по мере того как это было бы легке к intyegrate в theexising петлю см. ниже. Я устанавливал критически ошибку wiith вычисления в bold
Thanks
intPersons = ubound (arrRows, 2)+1 петля
' над каждой персоной, гарантировали 1 или больше intRow iterations for = 0 к ubound (arrRows, 2) петля 'над каждой линией темой заявка, гарантированной 1 или больше итерирования. Создайте 1 линию в expport для каждой линии-topic заявка для intClaimLineRow = 0 к ubound (arrClaimLines, strClaimDetails 2) = strClaimDetails & strTopic & ««& arrClaimLines (0, intClaimLineRow) &», «& arrClaimLines (1, intClaimLineRow) & _ », £ " & FormatNumber (FormatNumber (arrClaimLines (4, intClaimLineRow), 2)/intPersons) & «,» & arrClaims (7, intClaimRow) & next vbCrLF следующему
class=
|