none
embaralhamento de dados RRS feed

Respostas

  • Oi Daniela, vê se a função abaixo atende:

    Public Function CPF_Embaralhado(cpf As String) As String
    
    Dim dig(1 To 11) As String
    Dim i, y
    
    For i = 1 To 11
        Do While True
            Randomize
            y = Int((11 * Rnd) + 1)
            If dig(y) = "" Then
                dig(y) = Mid$(cpf, i, 1)
                Exit Do
            End If
        Loop
    Next i
    
    CPF_Embaralhado = Join(dig)
    
    End Function



    quarta-feira, 26 de outubro de 2011 06:52