Jag behöver att ändra denna kodifierar för att dela en given mängd pengar mellan given numrerar sådan att beloppen tillfogar upp till exakt slutsumman utan att runda fel men att hålla till två decimal- places
It inte betyder, om beloppen inte är identiska, som denna inte är alltid möjligheten e.g £100/3, men bör minimerar skillnaderna så mycket, som möjligheten för possible
If det bör vara kompetent att förutsäga att beloppen ganska än fungerar genom att testa dem, efter dividen har gjorts som skulle denna, var lättare till intyegrate in i theexising kretsar ser nedanfört. Jag har uppsättningen det kritiska beräkningswiithfelet i bold
Thanks
intPersons =
' för ubound (arrRows, 2) kretsar över varje person som garanteras 1 eller mer intRow för iterations
for = 0 till
för ubound (arrRows, 2) 'kretsar över varje fordrar fodrar ämnet som garanteras 1 eller mer upprepning. Skapa 1 fodrar i expporten för varje fordrar fodrar-topic
för intClaimLineRow = 0 till strClaimDetails för
för ubound (arrClaimLines, 2) = strClaimDetails & strTopic & ””& arrClaimLines (0, intClaimLineRow) &”, ”& arrClaimLines (1, intClaimLineRow) & _
”, £ " & FormatNumber (FormatNumber (arrClaimLines (4, intClaimLineRow), 2)/intPersons) & ”,” & arrClaims (7, intClaimRow) & nästa
next för vbCrLF
" klar "
|
