casas decimais
como retiro somente as casas decimais de um currency. Ex: de 0,25 somente o 25 sem nem vírgula nem nada a mais
Salupe
Curtidas 0
Respostas
Leorrn
12/05/2003
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;
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
GOSTEI 0