Varios

cda 5 items los multipl

la cadena

step ve n 5 n 5

Function CodiClave(valor As String, CodiDecodi As Byte)

'

Dim i As Byte ' INDICE DE FOR

Dim Cod_Clave(16) ' VALORES PARA CODIFICAR Y DECODIFICAR

'

Cod_Clave(1) = 2

Cod_Clave(2) = 1.1

Cod_Clave(3) = 0.25

Cod_Clave(4) = 0.8

Cod_Clave(5) = 2.03

Cod_Clave(6) = 0.3

Cod_Clave(7) = 1.75

Cod_Clave(8) = 0.36

Cod_Clave(9) = 0.77

Cod_Clave(10) = 2.03

Cod_Clave(11) = 2.5

Cod_Clave(12) = 0.4

Cod_Clave(13) = 5.1

Cod_Clave(14) = 0.99

Cod_Clave(15) = 4.44

Cod_Clave(16) = 0.2

'

CodiClave = "" ' INICIALIZO VALOR A DEVOLVER

'

Dim val1, val2, val3

If CodiDecodi = 1 Then ' DECODIFICA

'

For i = 1 To Len(Trim(valor)) Step 5

val1 = Mid(valor, i, 5)

val2 = Cod_Clave((i + 4))

val3 = (Round(Round(Val(Mid(valor, i, 5)), 2) / (100 * Cod_Clave((i + 4) / 5)), 0))

CodiClave = CodiClave + Chr(Round(Round(Val(Mid(valor, i, 5)), 2) / (100 * Cod_Clave((i + 4) / 5)), 0))

'

Next

Else ' CODIFICA

'

For i = 1 To Len(Trim(valor))

'

CodiClave = CodiClave + Format(Asc(Mid(valor, i, 1)) * Cod_Clave(i) * 100, "00000")

'

Next

'

End If

'

End Function

...