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

Tempo de leitura: 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.

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

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!