Decimales

"Hugo" escribió en el mensaje
news:

Gracias pero todavia no es lo que necesito porque en realidad necesito
decimas, y lo unico que hiso es quitar decimas, miren el problema es que

cantidad total: 10854.727273
cantidad que hace pidiendo dos decimales: 10854.73
cantidad que se necesita: 10854.72

lo unico que necesitamos es la cantidad y despues del punto extraer 2
digitos sin que este redonde.

Perdón.

No sabía que había que dártelo todo hecho:

Public Function Trunc(Value As Double, Optional Decimales As Integer = 2)
Trunc = Int(Value * 10 ^ Decimales) / 10 ^ Decimales
End Function

Y así puedes escribir

r = Trunc(10854.727273) ' 10854.72
q = Trunc(10854.727273, 4) ' 10854.7272

A veces olvido que en estos tiempos un programador es alguien sin más
talento que el de saber buscar soluciones en la red.


Salud!

Tienes Razon, Gracias por la respuesta, aveces cuando nos encontramos
perdidos, buscamos, pero sin embargo en este foro son los mejores, y yo lo
se, amigos listeros un libro que me recomiendes para aprender funciones.

Gracias

"Leonardo Azpurua" wrote:

"Hugo" escribió en el mensaje
news:
>
> Gracias pero todavia no es lo que necesito porque en realidad necesito
> decimas, y lo unico que hiso es quitar decimas, miren el problema es que
>
> cantidad total: 10854.727273
> cantidad que hace pidiendo dos decimales: 10854.73
> cantidad que se necesita: 10854.72
>
> lo unico que necesitamos es la cantidad y despues del punto extraer 2
> digitos sin que este redonde.

Perdón.

No sabía que había que dártelo todo hecho:

Public Function Trunc(Value As Double, Optional Decimales As Integer = 2)
Trunc = Int(Value * 10 ^ Decimales) / 10 ^ Decimales
End Function

Y así puedes escribir

r = Trunc(10854.727273) ' 10854.72
q = Trunc(10854.727273, 4) ' 10854.7272

A veces olvido que en estos tiempos un programador es alguien sin más
talento que el de saber buscar soluciones en la red.


Salud!



.