Mensajes

Si claro, existen muchas formas de obtener el mismo resultado. Tanto en vb6 como en vb.net, yo lo haría así:

Código [Seleccionar] Expandir



    Function SinDecimales(ByVal NumDob As Double, ByVal CanDec As Integer) As Double

        Dim B As Integer

        B = Int(NumDob * 10 ^ CanDec)

        SinDecimales = B / 10 ^ CanDec

    End Function



Ejemplo de uso de la función asumiendo un formulario con los siguientes objetos:

Cajas de texto
txtCanDec, para establecer la cantidad de decimales
txtNumero, donde se registra el número
txtResultado, donde se muestra el resultado

Botón.
btnCalcular

Código [Seleccionar] Expandir


    Private Sub btnCalcular_Click(sender As Object, e As EventArgs) Handles btnCalcular.Click
        Me.txtResultado.Text = SinDecimales(Me.txtNumero.Text, Me.txtCanDec.Text)
    End Sub



De esta manera se puede obtener el mismo resultado.