Como sacar el numero de decenas de un entero

[lucius]

A estas alturas se daran cuenta que soy pesimo con las matematicas

Voy con un ejemplo de lo que necesito:
398 = 39 decenas
180 = 18 decenas
  45 =  4 decenas
125.45= 12 decenas

Convertir y redondear el numero a entero es facil pero nose por donde empezar a realizar el calculo o que funciones emplear.

[YAcosta]

Bueno, aqui una ayuda de alguien que tampoco es matematico, ya vendran a enseñarnos como se hace, de momento yo lo haria asi:
(Siguiendo los ejemplos que das)
Text1 = 398

Resultado = Int(Val(Text1) / 10) & " decenas"

Y muestras Resultado donde lo necesites. Ojo que Int trunca no redondea, para redondear cambias Int por Round.

Saludos

[LeandroA]

Hola simplemente utiliza la barra invertida "\" para dividirlo por 10 

Debug.Print 398 \ 10
Debug.Print 180 \ 10
Debug.Print 45\ 10
Debug.Print 125.45 \ 10

Saludos.

[lucius]

Hola.
Haber si me ayudan a reducir esto que hize.
Funciona pero lo hize al gerrazo para salir del apuro

Código: (VB) [Seleccionar]

Dim nPuntos As String
Dim xNu As String
Dim nDec As Integer

nPuntos = Left(txtTotalFinal, Len(txtTotalFinal) - 3)

xNu = Format(nPuntos / 10, "Fixed")
MsgBox xNu

nDec = Left(xNu, Len(xNu) - 3)

MsgBox "Numero de decenas encontradas: " & nDec



[coco]

Arriba te contestaron con varias soluciones... Usa nPuntos \ 10