Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: lucius en Noviembre 20, 2014, 10:39:04 pm
-
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.
-
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
-
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.
-
Hola.
Haber si me ayudan a reducir esto que hize.
Funciona pero lo hize al gerrazo para salir del apuro :P
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
-
Arriba te contestaron con varias soluciones... Usa nPuntos \ 10