[Resolvido]VBA para trabalhar dados

Olá gostaria de transformar um campo composto de 12 dígitos em 24 dígitos
O campo atual segue o padrão 000000045000
Gostaria que o campo acima tenha um incremento dígitos 3 a cada caracter ficando assim 303030303030303435303030
Ou seja o número 3 entra a cada digito existente

Olá Leonardo Lobo,

Criei a seguinte função para o que pretende, veja:


Abra o seu projeto, crie um módulo novo e copie o codigo abaixo e coloque nesse módulo:

Código:

Public Function Converter12para24$(strNumero12$)
'ahteixeira 2019 para maximoaccess
    
    Dim iTam%, i%, sTmp$ 'variaveis
    iTam = Len(strNumero12 & "") 'verificar tamanho da string a converter
    
    If iTam > 0 Then 'se a string for maior que zero
        
        For i = 1 To iTam 'vai percorer caracter a caracter da string a converter
            sTmp = sTmp & "3" & Mid(strNumero12, i, 1) 'adiciona o 3 à variável temporária
        Next 'fim do for
        
        Converter12para24 = sTmp 'atribuir variável temporária à função
    
    End If 'fim do IF
End Function

Para fazer a chamada da função, pode chamar diretamente:
Converter12para24("000000045000")

ou
Converter12para24([NomeDoCampo])

Abraço

Obrigado pelo retorno funciona!!!!

Se puder dar uma ajuda no meu tópico “ Conciliação de Cartões de Crédito “ agradeço