[VBA] – Listas das principais funções para conversões dados

Tempo de leitura: menos de 1 minuto

Fala Pessoal,

Hoje estou postando uma lista muito importante quando se trabalha com tipos de dados no VBA. É muito comum surgir a necessidade de converter um dado de um formato especifico para um outro formato. Por exemplo, quando você trabalha com um componente de um UserForm como o TextBox,  por padrão, o tipo de valor retornando nesse componente é uma string, contudo, o usuário informa uma data e você precisa trabalhar com esse dado no formato data e não string portanto, será  necessário converter para o formato date,  a solução seria utilizar a função  cDate(Expression) as Date.

Abaixo uma lista das principais funções de conversões com seus respectivos exemplos, se tiverem alguma dúvida, postem um comentário ou mandem um email por favor.

[sourcecode highlight=”” language=”vb”]
Sub tiposConversores()

    ‘Converter texto ou numero para boleano
    
    NVerdadeiro = 1
    NFalso = 0
    TVerdadeiro = "A"
    TFalso = "B"
    
    MsgBox CBool(NVerdadeiro)
    MsgBox CBool(NFalso)
    MsgBox CBool(TVerdadeiro = "B")
    MsgBox CBool(TFalso <> "A")
    
    ‘Converter um numero para o formato Byte
    
    lNum = 169.85
    MsgBox CByte(lNum)
    
    ‘Converter um numero para o formato Currency
    lNum = 999.989876
 
    MsgBox CCur(lNum)
    ‘Converter para Data
    lNum = 42043
    MsgBox CDate(lNum)
    
    strText = "08 fevereiro, 2015"
    MsgBox CDate(strText)
    
    ‘Converter para Double
    cCurr = CCur(234.456784)
    
    dDouble = CDbl(cCurr * 100.1)
    
    MsgBox dDouble
    
    ‘Conveter para Decimal
    vDec = "10000000.0587"
    decNum = CDec(vDec + 1)
    MsgBox decNum
    
    ‘Conveter para Inteiro
    vStr = "1000.5"
    intNum = CInt(vStr)
    MsgBox intNum
    
    ‘Conveter para String
    vStr = 10000
    MsgBox IsNumeric(strNum)
    MsgBox IsNumeric(CStr(strNum))

   
End Sub

[/sourcecode]

Pratiquem!

Você achou este post útil? Ao compartilhar este post no Facebook, Twitter, você não está apenas ajudando os outros com muita informação, você está criando exposição para o blog excelsemlimites.com. Aprendendizado é a principal a razão pela qual este blog existe! Se você quer ajudar a compartilhar o blog, basta clicar no botão Compartilhar logo abaixo deste texto. Muito obrigado pela leitura e esperamos continuar fornecendo grandes conteúdos no futuro!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *