Se quitan los ceros al multiplicar y dividir Variant BCD (TFmtBCDField) y Currency

[MartinS]

Hola Al: Testeado en Delphi XE

Código Delphi [-]
  C3 := (C1 * V) / C2;  // ¡Resulta 5!
  ShowMessage (CurrToStr (C3));

Muestra 50

Código Delphi [-]
  C3 := (C1 * Currency (V)) / C2;  // Correcto, resulta 50
  ShowMessage (CurrToStr (C3));

muestra 50

Código Delphi [-]
  C1 := 51;
  C3 := (C1 * V) / C2;  // Resulta 51, como debe ser
  ShowMessage (CurrToStr (C3));

Muestra 51

Código Delphi [-]
 C1 := 800;
  C3 := (C1 * V) / C2;  // ¡Resulta 8!
  ShowMessage (CurrToStr (C3));

Muestra 800

Código Delphi [-]
  C1 := 802;
  C3 := (C1 * V) / C2;  // Resulta 802, como debe ser
  ShowMessage (CurrToStr (C3));

Muestra 802

Saludos