truncar - redondear vba

Función para quitar los lugares decimales

Question

¿Cuál es el Math.Floor() JavaScript Math.Floor() en VBA? esta función debe eliminar todos los lugares decimales y devolver solo un número entero.

Answer 1

De lo que recuerdo usar la función Int (). ex int (2,99) = 2; int (2.1) = 2 y así sucesivamente. google para más información!

Answer 2

Es Round()

Sub Sample()
Dim dval As Double
dval = 1.12345
Debug.Print Round(dval, 0)
End Sub

0 arriba especifica el número de decimales que deseas.

EDITAR:

Albi Patozi tiene razón. El equivalent de Math.Floor() es int() . Tenía la impresión de que solo querías devolver un número sin los decimales. Pero luego busqué en http://www.w3schools.com/jsref/jsref_floor.asp

El método floor () redondea un número HACIA ABAJO al entero más cercano y devuelve el resultado.

''~~> JavaScript floor() Method
''var a=Math.floor(0.60); ~~> 0
''var b=Math.floor(0.40); ~~> 0
''var c=Math.floor(5); ~~> 5
''var d=Math.floor(5.1); ~~> 5
''var e=Math.floor(-5.1); ~~> -6
''var f=Math.floor(-5.9); ~~> -6
Sub Sample()
Dim dval(5) As Double, i As Long
dval(0) = 0.6: dval(1) = 0.4: dval(2) = 5
dval(3) = 5.1: dval(4) = -5.1: dval(5) = -5.9
For i = LBound(dval) To UBound(dval)
Debug.Print Round(dval(i), 0); " ~~ "; Int(dval(i))
Next
End Sub

RESULTADO

RONDA () ~~ INT ()

1 ~~ 0

0 ~~ 0

5 ~~ 5

5 ~~ 5

-5 ~~ -6

-6 ~~ -6

Answer 3

También puede llamar a una de las funciones de la hoja de cálculo de Excel desde VBA:

- Application.WorksheetFunction.Floor_Math

- Application.WorksheetFunction.Floor_Math

Answer 4

tenga cuidado de que CInt () redondee realmente el número, pero Int () no lo haga.

CInt(1.6) ~~ 2
Int(1.6) ~~ 1