Cita:
Empezado por bucanero
hola a todos
prueba este código
Código Delphi [-]function EspecialRound(const value: Currency): Currency; begin Result := value / 1000; Result := TRUNC(TRUNC(Result) + Frac(Result) / 0.99) + 1; Result := 1000 * Result - 10; end; procedure TForm2.test; const values: array[1..4] of Currency = (25430.25, 36751, 18950.45, 18992); var i: LongInt; begin for i := 1 to 4 do Memo1.Lines.Add(format('%m: %m', [values[i], EspecialRound(values[i])])); end;
Un saludo |
Hola Bucanero, gracias.
Voy a probar tu código y confirmo por aquí si me funcionó o si tuve que modificarle algo, gracias por la información