TrucosVBA

Comparto un validador de códigos ISIN. ¿Qué es el código ISIN? El código ISIN (International Securities Identification Number) está desarrollado en el estándar internacional ISO 6166 y se utiliza para la identificación de valores mobiliarios. Es un código que identifica unívocamente un valor mobiliario a nivel internacional y tiene una gran acogida en todos los mercados financieros del mundo, que lo han incorporado a sus procesos de liquidación y custodia. El ISIN es un código de 12 caracteres alfanuméricos con la estructura siguiente: Los dos primeros caracteres corresponden al código país según el estándar ISO 3166 de la Agencia de Codificación que asigna el código o del país del emisor del valor según se trate de valores de renta fija, renta variable, warrants, etc., de acuerdo con lo establecido en el estándar ISO 6166. Los siguientes nueve caracteres forman el número básico que puede contener el código nacional de identificación del valor en cada país. La estructura y tamaño de es...

Comparto un validador del Código LEI ¿Qué es el código LEI? El Identificador de Entidad Jurídica (LEI, por sus siglas en inglés) es un código global y único basado en el estándar ISO 17442, que se utiliza para identificar a las personas jurídicas que son parte en las transacciones financieras y para cumplir con los requisitos de información exigidos en los mercados financieros. Esta función sirve para el validar, es decir, devuelve verdadero o falso dependiendo de que el código sea correcto o no: Public Function LEIValidacion(CodigoLEI) As Boolean     ' Recibe el CodigoLEI          Dim letras As String * 36     Dim Dividendo As Integer     Dim resto As Integer          ' Calcula el valor de las letras de los 18 primeros caracteres     letras = "123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"          LEI = CStr(InStr(1, letras, Mid(CodigoLEI, 1, 1))) & CStr(InStr(1, letras, Mid(Co...

  Comparto una función simple para poder obtener la letra del DNI Español. Public Function NIF(DNI As Long) NIF = DNI & "-" & Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (DNI Mod 23) + 1, 1) End Function