Hola Al: Testeado en Delphi XE
Código Delphi
[-] C3 := (C1 * V) / C2; ShowMessage (CurrToStr (C3));
Muestra 50
Código Delphi
[-] C3 := (C1 * Currency (V)) / C2; ShowMessage (CurrToStr (C3));
muestra 50
Código Delphi
[-] C1 := 51;
C3 := (C1 * V) / C2; ShowMessage (CurrToStr (C3));
Muestra 51
Código Delphi
[-] C1 := 800;
C3 := (C1 * V) / C2; ShowMessage (CurrToStr (C3));
Muestra 800
Código Delphi
[-] C1 := 802;
C3 := (C1 * V) / C2; ShowMessage (CurrToStr (C3));
Muestra 802
Saludos