opereciones con numeros decimales

[Fher]

independientemente de la respuesta o no, ya lo puede solucionar, como soy demaciado nuevo en esto pues pienso que hay funciones especificas, pero investigando mas fondo no encontre nada, asi que hay les dejo el codigo por si alguien se topa con el mismo problema



dim Numero as string

**** la variable numero es el resultado de alguna operacion que de decimales o enteros y tengamos qe validar si son decimales o enteros

Dim ParteEntera As String = Int(Numero)
Dim ParteDecimal As String
If (Len(Numero) - Len(ParteEntera)) = 0 Then
ParteDecimal = numero
label.TEXT = parteDecimal
Else
ParteDecimal = (Int(Numero)+1)
label.TEXT = parteDecimal
End If


*** hay problemas sencillos que a simple vista son tan complicados, solo es cuestion de relajarnos y comenzar de nuevo a intertar su solucion