Valor Decimal de Um Double.

Question

Preciso da parte inteira e da parte decimal de um Double :

A parte inteira j� consegui usando Floor(Valor) agora preciso da parte decimal, estou usando Frac(Valor). Mas o resultado sempre retorna com 0 na frente. Exemplo : o Valoe � 1,5 ent�o o resultado � 0,5.

Algu�m j� resolveu este problema alguma vez?

Massuda · Answer

Explique melhor o que voc� quer. O �zero na frente� � porque Frac() retorna a parte fracion�ria do n�mero.

Se voc� precisa do primeiro d�gito depois da v�rgula/ponto decimal, multiplique o resultado do Frac() por 10 e use Int() ou Trunc() para obter esse d�gito.

Raczy · Answer

Apenas multiplicar o resultado por 10 e depois usar Int ou Trunc n�o funciona, o valor pode ser 10.100 e o resultado seria apenas 1. Eu preciso de todo o valor decimal ap�s a virgula, deve existir alguma fun��o que fa�a isso. Alguma id�ia?

Massuda · Answer

[quote:b85fd04998=�raczy�]Eu preciso de todo o valor decimal ap�s a virgula[/quote:b85fd04998]A �nica forma seria voc� formatar como string, usar Pos() para achar o ponto decimal, pegar a parte da string que te interessa e converter essa parte de novo para n�mero....

Marco Salles · Answer

[b:392e587a4c]massuda escreveu[/b:392e587a4c]

A �nica forma seria voc� formatar como string, usar Pos() para achar o ponto decimal, pegar a parte da string que te interessa e converter essa parte de novo para n�mero.

�:::::::::

var valor:Double; partedecimal:string; begin valor:=StrtoFloat(edit1.Text); partedecimal:=copy(floattostr(valor),pos(decimalseparator,floattostr(valor))+1,length(floattostr(valor))); showmessage(partedecimal);

F�rum Valor Decimal de Um Double. #334189