pegar a parte inteira . . .

Amilton, tenta algo assim:

Vlr := StrToFloat(Copy(FloatToStr(0.20651240), 1, 4));

Espero ter ajudado.

Até!

[]s
Willian

[quote:87910d80c1=´Amilton/Pr´]alguém sabe como pegar a parte inteira de um valor sem os arrendodamentos . . .Ex.
Vlr = 0,20651240
preciso usar:
vlr = 0,20
com formatfloat arrendoda pra 0,21 e essas funções de arrendodamento tbém arredonda pra cima . . . preciso usa duas casas após a virugla sem nenhum tipo de arredondamento . . .[/quote:87910d80c1]

Essa função aqui funciona blz amigo...

function TruncaValor(pValor: Double; pCasasDecimais: Integer): Double;
Var
sValor: String;
begin
Result := pValor;
sValor := CurrToStr(pValor);
if (Frac(pValor) <> 0) and (pos(DecimalSeparator, sValor)<>0) then
result:= StrToFloat(Copy(sValor,1,pos(DecimalSeparator, sValor)+pCasasDecimais));
end;