Estoy conviertiendo una larga cadena alfanumérica en numérica con VAL y los resultados son desconcertantes ¿Existe un longitud máxima numérica para esta conversión?
Estos son los resultados que obtengo:
cCadena:= "21030903590010003692142800"
msginfo(cCadena) resultado = 21030903590010003692142800
msginfo(val(cCadena)) resultado = 21030903590010000850000000.000000
¿Existe alguna solución para esto?
Un saludo,
Manuel
xH 1.2.3, FWH 26.06 32 bits, BC++ 7.7, PellesC
Me resisto a creer que esto no se pueda hacer en nuestro entorno de programación. El ejemplo práctico es el siguiente: Se trata de calcular los dígitos de control del IBAN de una cuenta bancaria, es decir, dividir por 97 el número 21030903590010003692142800 para sacar el resto.
¿A alguien le ha ocurrido algo parecido? Sería la primera vez que no puedo hacer algo con FWH.
Un saludo,
Manuel
xH 1.2.3, FWH 26.06 32 bits, BC++ 7.7, PellesC
Manuel, No tiene nada que ver FWH, es el compilador y aparentemente no es posible. Quizá se pueda hacer una rutina en C que resuelva esta carencia. Saludos.
Function ModString(cString,nDiv)
Local cP1,nPS:= 1,nLS,cP2,cP3
Local cQc:= "",nReste
nLS:= Len(cString)+1
nP1:= Val(Substr(cString,1,1))
nPS++
Do While nPS <= nLS
If nP1 >= nDiv
cQc+= Str( Int(nP1 / nDiv) ,1)
nReste:= Mod(nP1 , nDiv )
Else
cQc+= "0"
nReste:= nP1
EndIf
nP1:= Val( Alltrim(Str(( Int(nReste) ))) + Substr(cString,nPS,1) )
nPS++
Enddo
Return nResteHoracio gracias. Ciertamente me he expresado mal, FWH nada tiene que ver en esto.
Pere, muchíííísimas gracias, no sólo por verificar el problema, sobre todo por el aporte de la función. Es justamente lo que necesitaba, funciona a la perfección. Te estoy muy agradecido.
Un saludo,
Manuel
xH 1.2.3, FWH 26.06 32 bits, BC++ 7.7, PellesC