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!