info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
redonde de un número doble
1 view
Skip to first unread message
joaquin
Dec 27, 2001, 7:46:52 AM12/27/01
to
Hola:
No consigo reducir los decimales de un campo numerico
doble a dos decimales
Gracias
joaquin
Dec 27, 2001, 7:46:43 AM12/27/01
to
Victor Delgadillo
Dec 27, 2001, 1:08:21 PM12/27/01
to
Restas la parte entera, multiplicas por 100 sumas tu cifra de redondeo y
divides en un integro. Por ejemplo:
Function Redondeo(Valor as Double) as Integer
Dim ValTemp as Double
ValTemp = Valor - (Int(Valor)) : si la cantidad enviada fue 87.3456
sera (87.3456 - 87)
ValTemp = ValTemp + .005 : .3456 + .005 = .3506
ValTemp = Int(ValTemp / 100) : .3506 / 100 = 35.06 = integro = 35
Redondeo = ValTemp
End Function
Aqui esta demasiado detallada... se puede hacer en un par de lineas.
Tambien puedes usar la funcion Round() de visual basic.
divides en un integro. Por ejemplo:
Function Redondeo(Valor as Double) as Integer
Dim ValTemp as Double
ValTemp = Valor - (Int(Valor)) : si la cantidad enviada fue 87.3456
sera (87.3456 - 87)
ValTemp = ValTemp + .005 : .3456 + .005 = .3506
ValTemp = Int(ValTemp / 100) : .3506 / 100 = 35.06 = integro = 35
Redondeo = ValTemp
End Function
Aqui esta demasiado detallada... se puede hacer en un par de lineas.
Tambien puedes usar la funcion Round() de visual basic.
--
Victor Delgadillo
Miami, Florida
"joaquin" <kin...@bigfoot.com> wrote in message
news:2ac601c18ed4$8ed4db90$9ae62ecf@tkmsftngxa02...
0 new messages