comom faço para quebra um valor ?
Galera Boa Tarde!!!
Tenho uma Variavel (Valor)
o Valor contido nela é (13,10), como eu faço para jogar o 13 ne outra variavel eo 10 ne outra variavel tbm ?
Tenho uma Variavel (Valor)
o Valor contido nela é (13,10), como eu faço para jogar o 13 ne outra variavel eo 10 ne outra variavel tbm ?
C-t
Curtidas 0
Respostas
Alesjrp
29/07/2003
decimal=StrtoFloat(Copy(FormatFloat(´00000000.00´,wnumero),10,2);
Centena=StrtoFloat(Copy(FormatFloat(´00000000.00´,wnumero),1,8);
Utiliza a FormatFloat para colocar a quantidade de zeros que deseja em seguida copie parte desejada e transforme em float novamente.
Alexnadre
Centena=StrtoFloat(Copy(FormatFloat(´00000000.00´,wnumero),1,8);
Utiliza a FormatFloat para colocar a quantidade de zeros que deseja em seguida copie parte desejada e transforme em float novamente.
Alexnadre
GOSTEI 0
C-t
29/07/2003
Valeu abraços!!!!!!!!!111
GOSTEI 0
Vmotta
29/07/2003
var
valor,v1,v2: real;
begin
// armazena o valor 13,10 na variável valor
valor := 13.10;
// pega apenas a parte inteira
v1 := trunc(valor);
// tira a parte inteira e multiplica por 100
v2 := (valor - v1) * 100;
end;
Espero ter ajudado !!!
T+
Vitor <vmotta@eep.br>
valor,v1,v2: real;
begin
// armazena o valor 13,10 na variável valor
valor := 13.10;
// pega apenas a parte inteira
v1 := trunc(valor);
// tira a parte inteira e multiplica por 100
v2 := (valor - v1) * 100;
end;
Espero ter ajudado !!!
T+
Vitor <vmotta@eep.br>
GOSTEI 0