Ich muss diesen Code ändern, um einen gegebenen Geldbetrag zwischen einer gegebenen Zahl zu teilen so, dass die Mengen oben genau der Gesamtmenge ohne Rundungstörungen hinzufügen, aber das Halten zu zwei dezimalem places It nicht ausmacht, wenn die Mengen nicht identisch sind, da dieses nicht immer mögliches z.B. £100/3 ist, aber herabsetzen das Unterschiede so viel wie möglich
If möglich es in der Lage sind vorauszusagen wenn, dass die Mengen eher als arbeiten, indem sie sie prüfen, nachdem die Verteilung erfolgt worden, da diese zum intyegrate in theexising Schleife einfacher sein, unten sehen. Ich eingestellt die kritische Berechnung wiith Störung im bold
Thanks
intPersons = ubound ns (arrRows, 2)+1
' Schleife über jeder Person, garantierten 1 oder mehr iterations for intRow = 0 zum ubound (arrRows, 2) 'Schleife über jeder Anspruchslinie das Thema, garantiert 1 oder mehr Wiederholung. 1 Linie im expport für jede Anspruch Linie-topic für intClaimLineRow = 0 zum ubound (arrClaimLines, 2) strClaimDetails = strClaimDetails u. strTopic u. „„u. arrClaimLines (0, intClaimLineRow) verursachen u.“, „u. arrClaimLines (1, intClaimLineRow) u. _ “, £ " u. FormatNumber (FormatNumber (arrClaimLines (4, intClaimLineRow), 2)/intPersons) u. „,“ u. arrClaims (7, intClaimRow) u. vbCrLF folgendes next
|