Código:
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:
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.