Este tutorial demonstrará como usar a função CDec VBA.
Função CDec
VBA CDec Converter Expressão em Decimal
A função VBA CDec converte uma expressão em um tipo de dados decimal. O tipo de dados decimal é, na verdade, um subtipo do tipo de dados variante.
| 12345678910 | Sub CDecExample_1 ()MsgBox CDec (12.34000001)'O resultado é: 12.34000001MsgBox CDec (10000000000012.3)'O resultado é: 10000000000012.3MsgBox CDec (-0,00000000000001)'O resultado é: -0,00000000000001MsgBox CDec (-12,34)'O resultado é: -12,34End Sub |
VBA CDec convertendo strings em decimais
A função VBA CDec pode ser usada para converter strings em decimais se os caracteres na string tiverem um significado como números.
| 12345678910111213141516171819 | Sub CDecExample_2 ()Dim StrEx como stringStrEx = "112.112112"MsgBox CDec (StrEx)'O resultado é: 112.112112StrEx = "112,3"MsgBox CDec (StrEx)'O resultado é: 112,3StrEx = "11,2"MsgBox CDec (StrEx)'O resultado é: 112, é ignoradoStrEx = "$ 112,07"MsgBox CDec (StrEx)'O resultado é: 112,07 $ é ignoradoEnd Sub |
Programação VBA | O Code Generator funciona para você!
Erro de tempo de execução 13 do VBA CDec Incompatibilidade de tipo
Usar a função VBA CDec com strings que contêm caracteres não numéricos ou caracteres que não têm significado no contexto numérico resultará em um erro de tempo de execução '13': incompatibilidade de tipo.
| 1234567 | Sub CDecExample_3 ()'O código abaixo resultará em uma mensagem ERROR'CDec não pode lidar com caracteres não numéricosDim StrEx como stringStrEx = "Ab13"MsgBox CDec (StrEx)End Sub |
Estouro de erro 6 de tempo de execução do CDec do VBA
Usar a função VBA CDec com strings que resultam em um valor menor ou maior do que o decimal esperado resultará em um erro de tempo de execução '6': estouro. Um número decimal deve estar entre -7,9 E28 e +7,9 E28.
| 1234567 | Sub CDecExample_4 ()'O código abaixo resultará em uma mensagem ERROR'CDec pode lidar com números entre -7,9 E28 e +7,9 E28Dim StrEx como varianteStrEx = 8E + 30MsgBox CDec (StrEx)End Sub |
Configurações regionais do VBA CDec
A função VBA CDec tem comportamento diferente na conversão de strings com vírgula ou ponto. Ele usa as configurações regionais do sistema operacional para separador decimal e separador de dígitos.
| 12345678910111213141516 | Sub CDecExample_5 ()Dim StrEx como stringStrEx = "1.0000009"MsgBox CDec (StrEx)'Se as configurações regionais tiverem, como um separador de agrupamento, então'O resultado é: 19'Se as configurações regionais tiverem, como um separador decimal, então'O resultado é: 1.0000009StrEx = "1.0000009"MsgBox CDec (StrEx)'Se as configurações regionais tiverem. como um separador de agrupamento, então'O resultado é: 19'Se as configurações regionais tiverem. como um separador decimal então'O resultado é: 1.0000009End Sub |
