Foros Club Delphi - quitar un decimal ??

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - quitar un decimal ?? (https://www.clubdelphi.com/foros/showthread.php?t=15296)

chele

18-10-2004 12:25:51

quitar un decimal ??

Buenas, lo mismo es una tonteria pero no se como hacerlo.

Tengo un valor ( 5,368 ) y necesito que me lo deje con dos decimales ( 5.36 ) pero necesito confirmar que tiene 3 decimales y no solo 2.

ES decir si me pone los 3 decimales ponerle solo los dos ( sin redondear no hace falta ) y si tiene ya los dos dejarlo igual.

¿Como haria esto? soy novato en delphi y estas cosas en vb la resuelvo con right y left pero aqui no se como hacerlo.

Gracias anticipadas.

Investment

18-10-2004 12:33:00

Código:

//CadenaFloat, ParteEntera y ParteDecimal son de tipo string 



CadenaFloat:= floattostr(Tuvariablefloat); 

ParteEntera:= copy(CadenaFloat,0,pos(',',CadenaFloat)-1);

ParteDecimal:= copy(CadenaFloat,pos(',',CadenaFloat)+1,length(CadenaFloat)); 



if Len(ParteDecimal)>2 then

  ParteDecimal:= Copy(ParteDecimal,1,2); //Ya tienes solo dos decimales

chele

18-10-2004 12:46:54

Cita:

Empezado por Investment

Código:

 //CadenaFloat, ParteEntera y ParteDecimal son de tipo string 

 

 CadenaFloat:= floattostr(Tuvariablefloat); 

 ParteEntera:= copy(CadenaFloat,0,pos(',',CadenaFloat)-1);

 ParteDecimal:= copy(CadenaFloat,pos(',',CadenaFloat)+1,length(CadenaFloat)); 

 

 if Len(ParteDecimal)>2 then

   ParteDecimal:= Copy(ParteDecimal,1,2); //Ya tienes solo dos decimales

Gracias por la respuesta.

LA cosa es que ahora me dice esto :

Undeclared identifier : "Len"

Tengo delphi 5.0

¿Que puedo hacer?

Gracias anticipadas

Investment

18-10-2004 12:53:43

Fallo mio, cambia Len por Length y listo

ruina

18-10-2004 15:33:57

una pequeña variante:

Código Delphi [-] 
variable:=trunc(variable*100)/100

La franja horaria es GMT +2. Ahora son las 05:41:20.