|
|
tengo un problema no se que puedo estar hacendo mal, ademas se que no es lo que deseo pero anda por alli, lo que quiero hacer es por medio de codigo pasar de un numero romano a un numero corriente, par alo cual utilicé este codigo pero no se porque no me da resultado.
ademas no solo eso, no se como introducir ciertos criterios como en el caso del 4 y 9, dado de que en estos casos el primer numero es menos y el segundo mayor, caso contrario con escribir 150 el cual uno daria como resultado CL, como ves el mayor va de primero y despues el menor, a diferencia de escribir 149 CXLIX, ese es mi pequeño problema. en este caso yo coloco el la caja de texto de nombre txtinicio el numero romano para tratar de convertirlo, ademas no se como es que se hace para que una variable vaya acumulando, es decir si consta de 5 letras que sume el valor de la primera, segunda,tercera, asi, esperoq ue me podas dar una mano
For I = 1 To Len(LTrim(RTrim((txtinicio.Text))))
oper = Mid(UCase(RTrim(LTrim(txtinicio.Text))), I, 1)
Select Case oper
Case "I": dig = 1
Case "V": dig1 = 5
Case "X": dig2 = 10
Case "L": dig3 = 50
Case "C": dig4 = 100
Case "D": dig5 = 500
Case "M": dig6 = 1000
Case "G": dig7 = 5000
End Select
total = dig + dig1 + dig2 + dig3 + dig4 + dig5 + dig6 + dig7
Next I
Roman_Numero = total
de ante mano muchas Gracias
|