Necesito enmendar este código para dividir una cantidad de dinero dada entre un número dado tales que las cantidades agregan para arriba exactamente al total sin errores de redondeo pero no importa la custodia dos al places
It si las cantidades no fueran idénticas como éste no es siempre e.g £100 posible/3 pero si reducen al mínimo el
If de las diferencias tanto cuanto sea posible posible él pueden predecir que las cantidades algo que trabajan probándolos después de que se haya hecho la divisoria pues esto sería más fácil al intyegrate en lazo theexising ver abajo. He fijado el error crítico del wiith del cálculo en el bold
Thanks
intPersons = ubound (los arrRows, 2)+1 lazo del
' sobre cada persona, garantizaron 1 o más intRow del iterations
for = 0 al ubound (arrRows, 2) lazo del
'sobre cada línea asunto de la demanda, garantizado 1 o más iteración. Crear 1 línea en el expport para cada línea-topic
de la demanda para el intClaimLineRow = 0 al ubound (arrClaimLines, strClaimDetails de 2)
= strClaimDetails y strTopic y ““y los arrClaimLines (0, intClaimLineRow) y”, “y los arrClaimLines (1, intClaimLineRow) y el _
”, £ " y FormatNumber (FormatNumber (arrClaimLines (4, el intClaimLineRow), 2)/intPersons) y “,” y arrClaims (7, intClaimRow) y del vbCrLF
next
class= del
|
