Apache OpenOffice: Foro oficial de la comunidad

Código: Seleccionar todo

Option Explicit


Function DigitoVerificador(CodigoId As String, Optional Opcion As Variant) As Variant
'Solo toleramos valores 123, 123-1, 0001234, 0012345-1, 1234567 ó 1234567-1
'Opciones
'	0= devuelve el dígito
'	1= devuelve el indentificador completo con dígito correcto
'	otros= Verdadero/Falso si es ok o no
If IsMissing(Opcion) Then Opcion=0

'Filtrar errores: ( si guión → debiera ser formato 1234567-1)
'más de un dígito post-guión
'no es número antes guión
'número de más de 7 dígitos

Dim PosG As Integer
Dim CI As String
	PosG=InStr(CodigoId,"-")
Select Case PosG
	Case 0:		CI = CodigoId 	'no hay guión 
	Case Else	'Hay guión → a su derecha solo debe haber un número de un dígito
			 	If (Len(CodigoId) - PosG) <2 And IsNumeric(Mid(CodigoId,PosG+1)) Then
			 		CI=Left(CodigoId,PosG-1)	'toma el valor a izq de "-"
			 	Else
			 		Goto NoVale
			 	End If
End Select

If IsNumeric(CI) And Val(CI)<10000000 Then	'es número de 7 o menos cifras
	'Parece que IsNumeric devuelve True con cadenas que acaban en "e" o "d"   1234e 12d ?????
	'Provisionalmete lo salvamos con 
		If  Right(UCase(CI),1)="E" Or Right(UCase(CI),1)="D" Then GoTo NoVale
	Dim mV() As Integer
	Dim lSuma As Long
	Dim co1 As Byte
	    CI = Format(CI,"0000000") 
		mV = Array(2, 9, 8, 7, 6, 3, 4)
		For co1 = LBound(mV) To UBound(mV)
			lSuma = lSuma + Val(Mid(CI,co1+1,1)) * mV(co1)
		Next
		DigitoVerificador = (10-(lSuma Mod 10)) Mod 10
		Select Case Opcion
			Case 0:	DigitoVerificador = DigitoVerificador	'XD
			Case 1: DigitoVerificador = CI & "-" & DigitoVerificador
			Case Else: 											
						If DigitoVerificador = Val(Right(CodigoId,1)) Then 
								DigitoVerificador = 1
						Else
								DigitoVerificador = 0
						End If						
		End Select
	Exit Function
End If

NoVale:
	DigitoVerificador="No es valor de cédula"

End Function

Código: Seleccionar todo

{=RESIDUO(10-RESIDUO(SUMA(VALOR(MID(A1,{1;2;3;4;5;6;7},1))*{2;9;8;7;6;3;4}),10),10)}

Código: Seleccionar todo

Option Explicit

Function DigitoVerificador(CI As String) As Integer
Dim mV() As Integer
Dim lSuma As Long
Dim co1 As Byte

	mV = Array(2, 9, 8, 7, 6, 3, 4)
	For co1 = LBound(mV) To UBound(mV)
		lSuma = lSuma + Val(Mid(CI,co1+1,1)) * mV(co1)
	Next
	DigitoVerificador = (10-(lSuma Mod 10)) Mod 10

End Function

Código: Seleccionar todo

2613216	4	4
2613217	0	0
2613218	6	6