Función para obtener el módulo

Tal vez aquí se podría abrir un tema de discusión, en cuanto a la capacidad de las funciones de sistema de PB para tratar números de precisión doble o real. Muchas de estas funciones, como por ejemplo truncate, round o string (para conversiones de números), solo son capaces de trabajar adecuadamente con variables decimal, aunque la ayuda no lo especifique. Por otro lado, y centrandome en el tema que me ocupa en este post, la función mod, que si parece ser capaz de trabajar con variables de precisión doble, no figurá en el browser/funtions/systemfuntions que este sobrescrita, y por código o en el watch del debug, se puede comprobar que debe existir una definición para doble y otra para long. Además, por razones de precisión cuando debe obtenerse los módulos de números muy grandes, se recomienda utilizar números enteros y no fraccionados o decimales, y el algoritmo que se necesita para dicha operación requiere cortar el número como si se tratase de una cadena, y en base de datos, el número con el que tenemos que trabajar en nuestro caso esta almacenado como cadena, ya que a excepción de la comprobación del dígito de control, no se realiza ninguna otra operación, por esto he creado una función que admite dos parámetros, por un lado un string con el número que del que hay que obtener el módulo y otro argumento con el divisor, en este caso un integer. La función queda así:

DEFINICIÓN:

integer uf_modlong(string as_valor, integer ai_divisor)

CÓDIGO:

integer li_total, li_desde, li_hasta, li_r string ls_mod, ls_aux boolean lb_salir li_total = len(as_valor) Do // Calculamos el fragmento del string que debemos tratar. li_desde = li_hasta + 1 li_hasta = li_desde + 8 - len(ls_mod) // Determinamos si hay que continuar partiendo. If li_total >= li_desde Then // Hay que continuar partiendo. ls_aux = ls_mod ls_aux += mid(as_valor, li_desde, li_hasta-li_desde+1) // Calculamos el módulo. ls_mod = string(mod(long(ls_aux), ai_divisor)) Else // Hemos realizado todas las particiones necesarias. lb_salir = True li_r = integer(ls_mod) End If Loop Until lb_salir Return li_r