JotaPêAh!

Conveter formatos de dados no VBA

em 11/08/2010 20:26:00
Sub ConvertToBoolean()Dim lNum As IntegerDim strText As StringlNum = 0MsgBox CBool(lNum)lNum = 1 'Or higherMsgBox CBool(lNum)strText = "A"MsgBox CBool(strText = "B")MsgBox CBool(strText <> "B")End Sub

Sub ConvertToByte()Dim lNum As DoublelNum = 169.85MsgBox CByte(lNum)End Sub

Sub ConvertToCurrency()Dim lNum As DoublelNum = 999.989876MsgBox CCur(lNum)End Sub

Sub ConvertToDate()Dim lNum As LongDim strText As StringlNum = 38543MsgBox CDate(lNum)strText = "February 14, 1995"MsgBox CDate(strText)strText = "5:45:55 PM"MsgBox CDate(strText)End SubSub ConvertToDouble()Dim vCurr, dDoublecCurr = CCur(234.456784)dDouble = CDbl(cCurr * 100.1)MsgBox dDoubleEnd Sub

Sub ConvertToDecimal()Dim vDec, decNumvDec = "10000000.0587"decNum = CDec(vDec + 1)MsgBox decNumEnd Sub

Sub ConvertToInteger()Dim vStr, intNumvStr = "1000.5"intNum = CInt(vStr)MsgBox intNumEnd Sub

Sub ConvertToLong()Dim vStr, lngNumvStr = "1000000.589765"lngNum = CLng(vStr)MsgBox lngNumEnd Sub

Sub ConvertToSingle()Dim vStr, sinNumvStr = "987654.589765"sinNum = CSng(vStr)MsgBox sinNumEnd Sub

Sub ConvertToString()Dim vStrvStr = 10000MsgBox IsNumeric(strNum)MsgBox IsNumeric(CStr(strNum))End Sub

Sub ConvertToVariant()Dim vStrvStr = 1000MsgBox CVar(vStr & "000" + 9)End Sub

Fonte: http://www.ozgrid.com/VBA/conversion-functions.htm

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: