| Pregunta: | 25525 - RESTO DE UNA DIVISION TIPO DOUBLE |
| Autor: | Ernesto Blanco |
| Hola a todos. Tengo un problema a la hora de realizar una di´visión. El problema es que es una división entre donde el dividendo tiene 26 dígitos y el divisor siempre va a ser 97. Lo que necesito de esa división no es el resultado, sino el resto. Creo que MOD sólo funciona si es una división entre números enteros. ¿Cómo podría solucionar este problema? Muchas gracias a todos. Salu2. | |
| Respuesta: | Dark MAC |
| tu pregunta es tan sencilla que no deberia de estar aqui, pero en fin, te le respondere, primero, convierte el divisor y el dividendo en numeros enteros, primero, pones tres casillas de texto, un boton, 2 casillas son para poner dividendo y divisor, y la otra es para poner el resultado, en el boton pones el siguiente código:
Dim c As Double x = Int(Text1.Text) y = Int(Text2.Text) c = Val(Text1.Text) w = x / y If Val(Text1.Text) < Val(Text2.Text) Then MsgBox ("imposible realizar operacion solicitada, invierta los valores y pruebe de nuevo") Else For z = 0 To w If c > Val(Text2.Text) Then c = c - Val(Text2.Text) End If Next z Text3.Text = Str(c) End If y listo, espero que sea de tu agrado... | |