FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
formula..
hola. necesito una formula para un descuento lo he intentado pero no se por que me sale mal... la cosa es que cuando marca mas de 1,000 (con coma) todo sale mal... pero cuando la cantidad es menor a 999 si saca los descuentos
estoy haciendo esto: if Descuento.Text <> '0' then begin If Length(Descuento.Text) = 1 then Dsto := StrToFloat('0.0' + Descuento.Text) else Dsto := StrToFloat('0.' + Descuento.Text); ActAReal := ''; for K:=1 to Length(SubTotal.Text) do begin If SubTotal.Text[K] in ['0'..'9','.'] then ActAReal := ActAReal + SubTotal.Text[K] end; SubTotal.Text := ActAReal; Stal := StrToFloat(SubTotal.Text) * Dsto; SubTotal.Text := FloatToStrF(StrToFloat(Subtotal.Text) - Stal , FFNumber, 9,2); end; si alguien sabe una forma mejor o solucionar esto espero me respondan.saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
formula en dbgrid | federicorl | Varios | 4 | 07-08-2006 18:58:36 |
FastReport: fórmula matemáticas. | Jose_Pérez | Impresión | 1 | 01-09-2005 13:20:37 |
Formula en Firebird | jwmoreira | Firebird e Interbase | 4 | 17-05-2005 17:49:57 |
Formula One con Fast Report | CARSOFT_AR | Impresión | 0 | 06-05-2005 18:20:11 |
Campos calculados, fórmula | mariajoiz | Conexión con bases de datos | 8 | 10-06-2003 14:10:10 |
|