Qué tal chiquilla ;)
Bueno, probablemente el error es mío por esperar que un operador se comporte del modo que a mí me parece razonable.
Porque lo que quiero es ciertamente particular: una división "con resto" incluso entre dos números decimales, tipo 1.45 entre 0.105. Me temo que el código que has adjuntado sirve más bien para redondear...
El código que terminé escribiendo es éste.
Dim Dividendo As Double
Dim Divisor As Double
Dim Operando As Double
Dim Contador As Integer
Dim Resto As Double
Dividendo = txtDividendo.Text
Divisor = txtDivisor.Text
If Divisor = 0 Then
Contador = 0
Resto = 0
ElseIf Divisor > Dividendo Then
Contador = 0
Resto = Dividendo
ElseIf Dividendo = Divisor Then
Contador = 1
Resto = 0
ElseIf Divisor + Divisor > Dividendo Then
Contador = 1
Resto = Dividendo - Divisor
Else
Operando = Divisor
Contador = 1
Do
Operando += Divisor
Contador += 1
Loop While Operando + Divisor <= Dividendo
Resto = Dividendo - Operando
End If
lblResul.Text = "Cociente = " & Contador & ", resto = " & Resto
Funciona bien por ejemplo con 8 entre 0.5 (16 exacto) pero entre 0.2 me da 0.1999999999996.
Le encontráis explicación a esto? Gracias y un saludo ;)
