Comunidad Gambas-es

shordi escribió: [Ver mensaje]

Vuott, .....
Es broma. Me encanta ese trabajo de unión de foros que estás haciendo.

Saludos.

Citar:

De momento gana Julio.

jsbsan escribió: [Ver mensaje]

Basicamente seria dividir el numero grande en trozos más pequeños y operar.

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

parte1$ = Mid$(numeroiban$, 1, 9)
parte2$ = Mid$(numeroiban$, 10, 7)
parte3$ = Mid$(numeroiban$, 17, 7)
parte4$ = Mid$(numeroiban$, 24, 6)

A = Val(parte1$) Mod 97
B = Val(Format(A) + parte2$) Mod 97
C = Val(Format(B) + parte3$) Mod 97
D = Val(Format(C) + parte4$) Mod 97

Citar:

En aras de una mayor precisión, se recomienda el uso de números enteros en lugar de decimales. Si el guarismo es demasiado largo para la implantación en el software de números enteros (un número entero de 32 bits o 64 bits representa un máximo de 9 ó 18 dígitos), debe dividirse el cálculo en cálculos restantes consecutivos sobre números enteros con una extensión máxima de 9 ó 18 dígitos.

El resto de dividir 00120345030000067890142807 entre 97 = 1

1. Calcular el módulo 97 de los primeros 9 (o 18) dígitos del guarismo.
Módulo 97 de 001203450
2. Conseguir el siguiente número entero de 9 (o 18) dígitos del resto, seguido por los siguientes 7/8 (o 16/17) dígitos del guarismo. Calcular el módulo 97.
Módulo 97 de 683000006=17
3. Repetir el paso 2 hasta que los dígitos del guarismo hayan sido procesados.
Módulo 97 de 177890142=96
Módulo 97 de 96807=1

vuott escribió: [Ver mensaje]

Empecé desde un poco de tiempo para señalar en el foro -It los debates más importantes e interesantes de este foro -Es.
Creo que, sin perjuicio de la autonomía de cada grupo y foro, el intercambio de información y experiencias en completa armonía sea esencial y valiosa para todos.

Yo creo también que los dos foros deben empezar y fortalecer sus relaciones.

Saludos.

Ciao !