Devo emendare questo codice per dividere una somma di denaro data fra un numero dato tali che gli importi aggiungono esattamente al totale senza errori di arrotondamento ma attenersi due al places
It non importa se gli importi non sono identici poichè questo non è sempre per esempio £100 possibile/3 ma che se minimizzano il
If di differenze il più possibile possibile esso possono predire che gli importi piuttosto che funzionano verificandoli dopo che il disaccordo è stato fatto poichè questo sarebbe più facile a intyegrate nel ciclo theexising vedere sotto. Ho fissato l'errore critico del wiith di calcolo nel bold
Thanks
intPersons = ubound (arrRows, 2)+1 ciclo del
'sopra ogni persona, hanno garantito 1 o più intRow del iterations
for = 0 a ubound (arrRows, 2) ciclo del
'sopra ogni linea soggetto di reclamo, garantito 1 o più ripetizione. Generare 1 linea nel expport per ogni linea-topic
di reclamo per intClaimLineRow = 0 a ubound (arrClaimLines, strClaimDetails di 2)
= strClaimDetails & strTopic & ““& arrClaimLines (0, intClaimLineRow) &„, “& arrClaimLines (1, intClaimLineRow) & _
„, £ " & FormatNumber (FormatNumber (arrClaimLines (4, intClaimLineRow), 2)/intPersons) & “,„ & arrClaims (7, intClaimRow) & del vbCrLF
next
class= del
|
