Eu preciso de emendar este código para dividir uma quantidade de dinheiro dada entre um número dado tais que as quantidades adicionam acima exatamente ao total sem erros de arredondamento mas se manter dois ao places
It não importa se as quantidades não fossem idênticas como este não é sempre por exemplo £100 possível/3 mas se minimizam o
If das diferenças tanto quanto possível possível ele podem prever que as quantidades um pouco do que trabalham testando os depois que a partilha foi feita porque esta seria mais fácil ao intyegrate no laço theexising ver abaixo. Eu ajustei o erro crítico do wiith do cálculo no bold
Thanks
intPersons = ubound (arrRows, 2) +1 laço do
' sobre cada pessoa, garantida 1 ou mais intRow do iterations
for = 0 (arrRows, 2) laço do
'sobre cada linha tópico da reivindicação, garantido 1 ou mais iteração. Criar 1 linha no expport para cada linha-topic
da reivindicação para o intClaimLineRow = 0 aos strClaimDetails do
do ubound (arrClaimLines, 2) = os strClaimDetails & o strTopic & ““& os arrClaimLines (0, intClaimLineRow) &”, “& os arrClaimLines (1, o intClaimLineRow) & o _
”, o £ " & o FormatNumber (FormatNumber (arrClaimLines (4, intClaimLineRow), 2)/intPersons) & “,” & os arrClaims (7, intClaimRow) & o
next do vbCrLF
class= do
|
