Actividad pública reciente
Voto positivo a la respuesta
Desglose de cantidades en efectivo
Te anexo una función para realizar el desglose Function cuantos(c) 'por.Dante Amor b = Array(500, 100, 50, 20, 10) 'Billetes m = Array(5, 2, 1) 'Monedas v = c dec = v - Int(v) dec = Right(Format(dec, ".00"), 2) ' 'Desglosa billetes For i = LBound(b)...