FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema con obtencion de decimales
Tengo un problema con la obtencion de decimales de un monto.
Código:
edtRazonSocial.Text := dmData.dbfProvee.FieldValues['Nom_pro']; montoTotal := dmData.dbfCompras.FieldByName('Tot_odc').AsFloat; partEntera := Trunc(montoTotal); partDecimal := Trunc(100*Frac(montoTotal)); edtMonto.Text := Format('%n',[montoTotal]); atxtMonto.Numero := partEntera; edtMontoLetras.Text := atxtMonto.AsString + 'CON ' + Format('%.2d/100',[partDecimal]); Salu2. |
#2
|
|||
|
|||
en lugar de AsFloat, procura usar AsCurrency igual para todas las variables que manejes decimales usa tipo Currency
|
#4
|
||||
|
||||
Creo que la función Frac hace exactamente eso
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#5
|
|||
|
|||
Que tal Lepe
Es cierto que la función Frac quita la parte entera, pero en este caso sólo interesan los 2 primeros decimales sin redondear. Saludos Bismarck |
#6
|
|||
|
|||
Gracias luisgutierrezb
Gracias luisgutierrezb y bismarck_sierra lo consegui cambiando:
Código:
var montoTotal: Double; partEntera: Integer; partDecimal: Integer; Código:
var montoTotal: Currency; partEntera: Integer; partDecimal: Integer; Código:
partDecimal := Trunc((montoTotal - Int(montoTotal)) * 100); Salu2 y gracias. Última edición por onlytk fecha: 18-07-2006 a las 03:58:45. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Obtención CPUID | Kreyser | API de Windows | 1 | 23-02-2005 21:03:24 |
Obtención de clases en runtime. | Aprendiz | OOP | 2 | 29-09-2004 19:14:48 |
Problema con Decimales de Double Precision | Triton | Firebird e Interbase | 8 | 08-09-2004 03:12:00 |
obtencion de un archivo via internet | srangel | Internet | 0 | 05-08-2004 17:10:22 |
Obtención de la Estructura de un AdoQuery | FNADALO | OOP | 5 | 19-11-2003 11:55:24 |
|