Problema con obtencion de decimales

[onlytk]

Tengo un problema con la obtencion de decimales de un monto.

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]);

Estoy utilizando el componente ATexto, y quiero que me muestre en letras una cantidad, y que la parte decimal la exprese asi: 90/100 Dolares, pero me falla con algunos decimales puesto que me muestra 89/100 supongo que es el redondeo, alguien me puede ayudar por favor??.

Salu2.

[luisgutierrezb]

en lugar de AsFloat, procura usar AsCurrency igual para todas las variables que manejes decimales usa tipo Currency

[bismarck_sierra]

Que tal

Yo lo hago de esta manera, espero te sirva

Código Delphi [-]

partDecimal := Trunc((montoTotal - Int(montoTotal)) * 100);

Saludos
Bismarck

[[Lepe]]

Creo que la función Frac hace exactamente eso

[bismarck_sierra]

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

[onlytk]

Gracias luisgutierrezb y bismarck_sierra lo consegui cambiando:

var
    montoTotal: Double;
    partEntera: Integer;
    partDecimal: Integer;

por:

var
    montoTotal: Currency;
    partEntera: Integer;
    partDecimal: Integer;

y tambien obteniendo los decimales de la forma en que dijo bismarck_sierra:

partDecimal := Trunc((montoTotal - Int(montoTotal)) * 100);

Pero porque ocurre esto???, tanta es la diferencia entre los tipos Double y Currency??

Salu2 y gracias.