Primero te creas un textbox con el nombre "tnumero" (sin comillas claro), te creas un boton con el nombre "bcalcular", y este es el codigo para el evento click del boton bcalcular. inner maximum Sub bcalcular_Click() Dim centimetros As Integer Dim metros As Double centimetros = tnumero.textual content textile metros = centimetros / one hundred MsgBox (centimetros & " cm equivale a " & metros & " mt") end Sub saludos..
Answers & Comments
Verified answer
dividiendo por 100
A la cifra que tengas en centímetros, le recorres el punto a la izquierda dos posiciones. No tiene falla y así te ahorras la división.
Ejemplos:
Aquí el punto esta después del 4 por ser numero entero
174 cm ------> 1.74 metros
Aquí el punto esta intermedio por tener fracción
174.38 cm -----> 1.74 metros
Aquí completas con ceros
17.43 cm -----> 0.17 metros
1.74 cm -----> 0.017 metros
Y si quieres utilizar todas las cifras a la derecha del punto también es correcto.
Primero te creas un textbox con el nombre "tnumero" (sin comillas claro), te creas un boton con el nombre "bcalcular", y este es el codigo para el evento click del boton bcalcular. inner maximum Sub bcalcular_Click() Dim centimetros As Integer Dim metros As Double centimetros = tnumero.textual content textile metros = centimetros / one hundred MsgBox (centimetros & " cm equivale a " & metros & " mt") end Sub saludos..
Lo dividis entre 30, es re facil 😎😎😎.
dividiendo los centimetros para 100
Divides por cien la cantidad de centímetros, y el resultado sale en metros.
ejemplos:
100 cm = 1 m
1 cm = 0,01 m
dividir o numero por 100
Para convertir centimetros a metro debes mutiplicar el centimetro por 0.01.
Ejemplo:
Centímetros:
Medida de longitud. 2,5 cm equivalen aproximadamente a una pulgada. Unidad métrica de medida.
Metros:
Unidad métrica de medida equivalente a 39,37 pulgadas.
Espero que te sirva.
Para pasar de Centimetro a metros ay q multiplicar por 10.
Y para pasar de metros a centrimos dividir por 10.