FUNÇÃO DE CONVERSÃO - CSTR

CStr

   Função empregada para converter um valor ou expressão em uma string, utilizando esta sintaxe:

CStr(Expressão)

Onde, 

• Expressão: argumento obrigatório que pode ser de qualquer tipo numérico, Boolean, Date, Null, Empty ou Error. 

As seguintes considerações são válidas para a função CLng: 

• A função CStr retornará diferentes valores de acordo com o argumento que recebe, obedecendo às regras abaixo: 
• Se Expressão for um valor booleano, CStr irá retornar uma string contendo “Verdadeiro” Pelo “Falso”;
• Se Expressão for uma data válida, CStr irá retornar uma string contendo data no formato de data abreviada;
• Se Expressão for Null, CStr retornará um erro em tempo de execução;
• Se Expressão for Empty, CStr retornará uma string de comprimento zero;
• Se Expressão for um objeto Error , CStr irá retornar a palavra “Error” seguida do número do erro ocorrido;
• Se Expressão for um número, Cstr retornará uma string contendo um número. 

Exemplo: Os exemplos que se seguem empregam a função CStr para converter diversos tipos de valores em strings:

Dim strValor as string

strValor = Cstr(10)                 ‘Retorna “10”

strValor = Cstr(Error(9))        ‘Retorna “Subscrito fora do intervalo”

strValor = Cstr(#25/4/61#)     ‘Retorna “25/04/1961” 

Até a Próxima!!

FUNÇÃO DE CONVERSÃO - CSNG

CSng

    Função empregada para converter um valor número ou expressão que resulte em um valor número, em um valor de dupla precisão, contendo quinze casas decimais, utilizando a seguinte sintaxe:

CSng(Expressão)

Onde, 

• Expressão: argumento obrigatório que deve ser avaliada para um valor numérico, entre –3.402823E38 e –1.401298E-45 para valores negativos e entre 1.401298E-45 e 3.402823E38 para valores positivos. 

Exemplo: Os próximos exemplos indicam como empregar a função CSng para converter diversos valores para um valor rel de dupla precisão:

Dim curValor as Currency
Dim sngValor as Single
curValor = 123.4567
sngValor = CSng(curValor)  ‘sngValor contém agora um número com 15 casas decimais

Até a Próxima!!

FUNÇÃO DE CONVERSÃO - CLNG

CLng

    Função empregada para converter um valor número ou expressão que resulte em um valor número, em um valor inteiro longo, utilizando a seguinte sintaxe:

CLng(Expressão)

Onde,

• Expressão: argumento obrigatório que deve ser avaliado para um valor numérico, entre –2.147.483.648 e 2.147.483.647. 

As seguintes considerações são válidas para a função CLng: 

• Se a expressão for um número decimal, CLng irá arredondá-lo para o próximo número inteiro, empregando as seguintes regras: 
• Se a parte decimal for maior que 0.5, o  número é arredondado para o próximo valor inteiro;
• Se a parte decimal for menor que 0.5, o número é arredondado para o valor inteiro imediatamente anterior;
• Se a parte decimal for igual a 0.5, o  número é arredondado para o próximo número inteiro par. 
• CLng difere das funções Fix e Int do VBA por arredondar o número para o inteiro mais próximo, enquanto a Fix e Int truncam o número  apenas sua parte inteira, sem qualquer arredondamento. 

Exemplo: Os próximos exemplos indicam como empregar a função CLng para converter diversos valores para um valor real de dupla precisão:

Dim IngValor as Long

Dim IntValor as Integer

Dim A, B, C

A = 120.5: B = 121.5: C = 120.6

IngValor = CLng(A)         ‘intValor contém 120

IngValor = CLng(B)         ‘intValor contém 122

IngValor = CLng(C)         ‘Provoca erro de estouro de capacidade, pois IntValor é Integer

Até a Próxima!!

FUNÇÃO DE CONVERSÃO - CINT

CInt

    Função empregada para converter um valor ou expressão que resulte em um valor número, em um valor inteiro, utilizando esta sintaxe:

CInt(Expressão)

Onde, 

• Expressão: argumento obrigatório que deve ser avaliado para um valor número, entre –32.768 a 32.767. 

As seguintes considerações são válidas para a função Cint: 

• Se Expressão for um número decimal, Cint irá arredondá-lo para o próximo número inteiro, empregando as seguintes regras:
  
• Se a parte decimal for maior que 0.5, o número é arredondado para o próximo valor inteiro;
• Se a parte decimal for menor que 0.5, o número é arredondado para o valor inteiro imediatamente anterior;
• Se a parte decimal é igual a 0.5, onu é arredondado para o próximo número inteiro par;
• Cint difere das funções Fix e Int do VBA por arredondar o número para o inteiro mais próximo, enquanto a Fix e Int trucam o número  retornado apenas a sua parte inteira, sem qualquer arredondamento. 

Exemplo: Os próximos exemplos indicam como empregar a função Cint para converter diversos valores para um valor decimais de dupla precisão:

Dim intValor as Integer

Dim A, B, C, D

A = 120.5: B = 121.5: C = 120.6: D = 40000

IntValor = Cint(A)         ‘intValor contém 120

IntValor = Cint(B)         ‘intValor contém 122

IntValor = Cint(C)         ‘intValor contém 121

IntValor = Cint(D)         ‘Provoca um erro de overflow

Até a Próxima!!

FUNÇÃO DE CONVERSÃO - CDBL

CDbl

    Função empregada para converter um valor numérico ou expressão que resulte em um valor numérico, em um valor de dupla precisão, contendo quinze casas decimais, utilizando esta sintaxe:

Cdbl(Expressão)

Onde, 

• Expressão: argumento obrigatório que deve ser avaliado para um valor numérico, entre –1.79769313486231E308 a 4.94065645841247E-324 ao valores negativos e entre 4.94065645841247E-324 e 1.79769313486231E308 para valores positivos. 

Exemplo: Os próximos exemplos indicam como empregar a função CDbl para converter diversos valores para um valor real de dupla precisão:

Dim curValor as Currency

Dim dblValor as Double
curValor = 123.4567
dblValor = CDbl(curValor)   ‘dblValor contém agora um número com 15 casas decimais

Até a Próxima!!

FUNÇÃO DE CONVERSÃO - CDATE

Cdate

    Função empregada para converter um campo Data/Hora, uma string, expressão que resulte em uma string ou data literal válida, utilizando esta sintaxe:

Cdate(Expressão)

Onde, 

• Expressão: argumento obrigatório que deve ser avaliado para uma data válida. 

As seguintes considerações são válidas para a função Cdate: 

• Empregue a função Cdate quando quiser retirar a data de um campo de dados do Microsoft Access contendo os valores Data/Hora;
• Evite codificar strings na forma textual, fornecendo-as como uma data literal envolvida pelos caracteres “#” (Ex.: Em vez de empregar “25/04/1961”, utilize #04/25/1961#;
• Quando expressão for uma data literal, lembre-se de fornecê-la entre um par de caracteres “#”, empregando o formato “mm/dd/aaaa”;
• Cdate reconhece strings que contenham datas formatadas com as características de localização do seu sistema, com a ordem correta de dia, mês e ano;
• Cdate não reconhece strings que contenham o dia literal da semana;
• Cdate também reconhece como datas válidas números inteiros que se situem dentro da faixa aceitável de datas do VBA. Quando números são convertidos para datas, apenas a faixa inteira é empregada, sendo a faixa fracionária convertida para hora, com o valor  (zero) decimal sendo considerado (0:00);
• Você pode empregar a função IsDate() para verificar se uma string contém uma data válida antes de empregar a função Cdate para convertê-la;
• A função CVDate() também pelo ser utilizada pelo VBA para converter um argumento em uma data válida. Ela existe apenas por compatibilidade para trás com outras versões do VBA. A diferença entre CVDate e Cdate, é que a primeira retorna um valor Variant, cujo subtipo é Date, enquanto que a segunda retorna um tipo de dados Date. 

Exemplo: Os exemplos que se seguem empregam a função Cdate para converter  diversos argumentos em datas válidas:

Dim datData as Date

datData = Cdate(“25/04/1961”)       ‘Retorna a data válida 25/04/1961

datData = Cdate(“25, abril, 1961”)  ‘Retorna a data válida 25/04/1961

datData = Cdate(22396)                   ‘Retorna a data válida 25/04/1961

datData = Cdate(“30/02/2000”)       ‘Provoca erro,pois a data é inválida

Até a Próxima!!

FUNÇÃO DE CONVERSÃO - CCUR

Ccur

    Função empregada para converter um valor numérico ou expressão que resulte em um valor numérico, em um valor monetário, arredondado para quatro casas decimais, utilizando a seguinte sintaxe:

Ccur(Expressão)

Onde, 

• Expressão: argumento obrigatório que deve ser avaliado para um valor numérico entre – 922.337.203.685.477,5808 a 922.337.203.685.477,5807. 

As seguintes considerações são válidas para a função Ccur: 

• Empregue a função Ccur() para arredondar números decimais para quatro casas decimais antes de efetuar operações matemáticas complexas ou sucessivas, evitando a ocorrência de arredondamento em seu código;
• Ccur pode receber valores empregando diferentes tipos de separadores de milhar e decimais, com ou sem um caractere monetário adicionado como sufixo ou prefixo, desde que os mesmos estejam de acordo com as definições de localização atualmente empregadas pelo Windows;
• Se Expressão contiver um número com mais de quatro casas decimais, Ccur irá arredondar a parte decimal, empregando as seguintes regras:

• Se o quinto caractere decimal for maior que 5 (>0.00006), quarto decimal será arredondado para o próximo valor inteiro;
• Se o quinto caractere decimal for menor que 5 (<0.00004), quarto decimal será arredondado para o valor inteiro imediatamente anterior;
• Se o quinto caractere decimal for igual a 5 (0.0005), quarto decimal será arredondado para o próximo número inteiro par. 

Exemplo: Os exemplos a seguir demonstram como a função Ccur pode ser empregada para converter diversos valores decimais ou string em valores monetários válidos:

Dim curValor as Currency

curValor = Ccur (“123.456789) ‘Retorna 123.4568
curValor = Ccur (1.12305) ‘Retorna 1.1230
curValor = Ccur (1.12315) ‘Retorna 1.1232

Até a Próxima!!

ERASE

Erase

    Instrução empregada para reinicializar os elementos de uma matriz de tamanho fixo, ou para liberar o espaço de memória atualmente utilizado por matrizes dinâmicas utilizando a seguinte sintaxe:

Erase ListaDeMatrizes

Onde,

• ListaDeMatrizes: Argumento obrigatório consistindo do nome de um ou mais matrizes separadas por vírgulas.

As seguintes considerações  são válidas para a instrução Erase:

• A instrução Erase se comporta de forma diferente, dependendo se a matriz é dinâmica ou de tamanho fixo. Matrizes dinâmicas têm a memória alocada recuperada, porém, para se referir novamente à matriz, é obrigatório empregar uma instrução Redim para redimensioná-la ao tamanho desejado;
• Para matrizes de tamanho fixo, a instrução Erase não é capaz de recuperar a memória por elas alocada. Os elementos de uma matriz de tamanho fixo são redefinidos pela instrução Erase da seguinte forma:

• Matriz numérica: elementos são redefinidos para zero;
• Matrizes String (de comprimento variável): elementos redefinidos para string vazia (“”);
• Matrizes String (de comprimento variável): elementos redefinidos para zero;
• Matrizes de Variants: elementos redefinidos para Empty;
• Matrizes de tipo definido pelo usuário: elemento redefinido para o tipo padrão;
• Matrizes de objetos: elementos redefinidos para Nothing.

Exemplo: Este exemplo emprega a instrução Erase para reinicializar os elementos de matrizes dinâmicas e de tamanho fixo. Apenas o espaço de memória alocada para a matriz dinâmica é recuperado:

‘Declaração das matrizes
Dim lngMatriz(20) As Long   'Matriz de dados Long.
Dim strMatriz(20) As String   'Matriz de strings de comprimento variável
Dim strMatrizFixa(30) As String * 50 'Matriz de strings de comprimento fixo
Dim varMatriz(40) As Variant    'Matriz de Variants
Dim MatrizDinâmica() As Single   'Matriz Dinâmica
ReDim  MatrizDinâmica(1000)  'Aloca espaço de armazenamento
Erase IngMatriz    'elementos redefinidos para 0
Erase strMatriz     'elementos redefinidos para string vazia ""
Erase strMatrizFixa    'elementos redefinidos para 0
Erase varMatriz         'elementos definidos para Empty
Erase MatrizDinâmica    'Recupera o espaço de memória utilizado

Até a Próxima!!

FUNÇÃO DE CONVERSÃO - CBYTE

Cbyte

    Função empregada para converter um valor numérico retornado por uma expressão em um valor Byte, utilizando a seguinte sintaxe:

Cbyte(Expressão)

Onde, 

• Expressão: argumento obrigatório que deve ser avaliado para um número situado entre 0 e 255. 

As seguintes considerações são válidas para a função Cbyte: 

• Se Expressão > 255, ou Expressão < 0, ocorrerá um erro de estouro de capacidade;
• Se Expressão for um número decimal, Cbyte irá arredondá-lo para o próximo número inteiro, empregando as seguintes regras: 
  
  
• Se a parte decimal for maior que 0.5, o número é arredondado para o próximo valor inteiro;
• Se a parte decimal for menor que 0.5, o número é arredondado para o valor inteiro imediatamente anterior;
• Se a parte decimal igual a 0.5, o número é arredondado para o próximo número inteiro par. 

Exemplo: Os exemplos que se seguem demonstram como empregar a função Cbyte para converter uma expressão em um valor verdadeiro ou falso:

Dim byRetorno as byte

byRetorno = Cbyte (0.5) ‘Retorna 0

byRetorno = Cbyte (1.5) ‘Retorna 2

byRetorno = Cbyte (1.342) ‘Retorna 1

byRetorno = Cbyte (5.5) ‘Retorna 6

Até a Próxima!!

FUNÇÃO DE CONVERSÃO - ASC

ASC

    Função empregada para retornar um valor inteiro, que representa o código ASCII do primeiro caractere do argumento recebido, utilizando uma desta sintaxes:

Asc(Caractere)

AscB(Caractere)

AscW(Caractere)

Onde, 

• Caractere: argumento obrigatório, indicando uma string contendo um ou mais caracteres ou qualquer expressão válida que retorne uma string.

As seguintes considerações são válidas sobre a função Asc():

• Se String for uma string de comprimento zero, ocorrerá um erro em tempo de execução;
• O valor retornado por Asc() será um código numérico entre 0 e 255 para códigos Asc ou um código entre –32.768 –32767 para valores Unicode (empregados em linguagens chinesa, cirílica e outras;
• A função AscB() é empregada quando a string contém bytes, retornando o primeiro byte da string no lugar do código ASCII do primeiro caractere;
• A função AscW() retorna o caractere Unicode do primeiro caractere contido no argumento recebido.

Exemplo: O exemplo a seguir demonstra como empregar a função Asc() para retornar o código Asc de um ou mais caracteres recebidos como argumento:

Dim byCodigo as Byte

byCodigo = Asc(“0”)  ‘Retorna 48 (código ASCII do número 0 – zero)

byCodigo = Asc(“9”) ‘Retorna 57 (código ASCII do número 9 – nove)

byCodigo = Asc(“Abacaxi”) ‘‘Retorna 65 (código ASCII da letra “A”)

Até a Próxima!!

FUNÇÃO DE CONVERSÃO - CBOOL

Cbool

    Função empregada para converter o valor retornado por uma expressão lógica em um valor booleano, utilizando a seguinte sintaxe:

Cbool(Expressão)

Onde, 

• Expressão: argumento obrigatório que deve ser avaliado para um número. Se Expressão = 0, Cbool = False; Se Expressão <> 0, Cbool = True. 

Exemplo: Os exemplos que se seguem demonstram como empregar a função Cbool para converter uma expressão em um valor verdadeiro ou falso:

Dim A, B, C, Retorno

A = 10, B = 5, C = 5

Retorno = Cbool (A = B) ‘Retorna False

Retorno = Cbool (A = B + C) ‘Retorna True

Retorno = Cbool (A – B - C) ‘Retorna False

Até a Próxima!!