Ik moet deze code wijzigen om een bepaalde hoeveelheid geld tussen een bepaald aantal te verdelen dusdanig dat de bedragen aan precies het totaal zonder fouten kloppen rond te maken maar het houden zich aan twee decimale places
It is niet van belang als de bedragen niet identiek zijn aangezien dit is niet altijd mogelijke b.v. £100/3 maar de/>If zou moeten minimaliseren mogelijke verschillen zoveel mogelijk
Thanks
intPersons = ubound (arrRows, 2) +1/>' lijn
for intRow = 0 aan (arrRows, 2)
'lijn ubound over elk onderwerp van de eisenlijn, waarborgde 1 of meer herhaling. Cre�ër 1 lijn in expport want elke eis/> voor intClaimLineRow = 0 aan ubound (arrClaimLines, 2)
strClaimDetails = strClaimDetails & strTopic & „„& arrClaimLines (0, intClaimLineRow) &“, „& arrClaimLines (1, intClaimLineRow) & _
“ lijn-topic£ " & FormatNumber (FormatNumber (arrClaimLines (4, intClaimLineRow), 2)/intPersons) & „,“ & arrClaims (7, intClaimRow) & vbCrLF
volgende
next
|
