Je dois modifier ce code pour diviser une somme d'argent donnée entre un nombre donné tels que les montants ajoutent exactement au total sans erreurs d'arrondissage mais la conservation deux au places
It n'importe pas si les montants ne sont pas identiques car ce n'est pas toujours par exemple £100 possible/3 mais si réduisent au minimum le
If de différences autant que possible possible il peuvent prévoir que les montants plutôt que fonctionnent à côté de les examiner après que le clivage ait été fait car ce serait plus facile à l'intyegrate dans la boucle theexising voir ci-dessous. J'ai placé l'erreur critique de wiith de calcul dans le bold
Thanks
intPersons = ubound (les arrRows, 2)+1 boucle du
'au-dessus de chaque personne, ont garanti 1 intRow ou plus d'iterations
for = 0 à ubound (arrRows, 2) boucle de
'au-dessus de chaque ligne matière de réclamation, garantie 1 itération ou plus. Créer 1 ligne dans l'expport pour chaque ligne-topic
de réclamation pour l'intClaimLineRow = 0 à l'ubound (arrClaimLines, strClaimDetails de 2)
= strClaimDetails et strTopic et « « et arrClaimLines (0, intClaimLineRow) et », « et arrClaimLines (1, intClaimLineRow) et _
», £ " et FormatNumber (FormatNumber (arrClaimLines (4, intClaimLineRow), 2)/intPersons) et « , » et arrClaims (7, intClaimRow) et de vbCrLF
prochains
next
class= de
|
