casas decimais

12/05/2003

1

como retiro somente as casas decimais de um currency. Ex: de 0,25 somente o 25 sem nem vírgula nem nada a mais


Responder

Posts

12/05/2003

Leorrn

Aí vai um procedimento q faz isso:

procedure TForm1.BitBtn1Click(Sender: TObject);
var temp: string;
begin
temp:= FormatCurr(´.#´, 0.25);
Label1.Caption := Copy (temp,2, length(temp));
end;

como retiro somente as casas decimais de um currency. Ex: de 0,25 somente o 25 sem nem vírgula nem nada a mais



Responder