Etiqueta: Conversão de Texto para Número

Data

Função Data em VBA

Descrição:

A função Date em VBA é uma função incorporada que retorna a data atual do sistema. Ela é extremamente útil para trabalhar com operações que envolvem datas em projetos VBA.
Ao chamar a função Date, o VBA retorna a data atual no formato padrão do sistema. Por exemplo, se a data atual for 8 de outubro de 2023, a função Date retornará “08/10/2023” em sistemas configurados para o formato de data “dd/mm/aaaa”.
Essa função é frequentemente utilizada em conjunto com outras funções de manipulação de datas para calcular, comparar ou formatar datas de acordo com as necessidades do desenvolvedor.
Por exemplo, ela pode ser utilizada para determinar prazos, calcular a idade de uma pessoa, ou para qualquer operação que necessite do conhecimento da data atual do sistema.
Exemplos:


Sub Exemplo1()
    Dim dataAtual As Date
    dataAtual = Date
    MsgBox "A data atual é: " & dataAtual
End Sub

Este exemplo retorna a data atual e a exibe em um MsgBox.


Sub Exemplo2()
    Dim dataDaquiA7Dias As Date
    dataDaquiA7Dias = Date + 7
    MsgBox "A data daqui a 7 dias será: " & dataDaquiA7Dias
End Sub

Este exemplo calcula a data daqui a 7 dias a partir da data atual e a exibe em um MsgBox.


Sub Exemplo3()
    Dim primeiroDiaDoAno As Date
    primeiroDiaDoAno = DateSerial(Year(Date), 1, 1)
    MsgBox "O primeiro dia do ano atual é: " & primeiroDiaDoAno
End Sub

Este exemplo utiliza a função `DateSerial` para obter o primeiro dia do ano atual e a exibe em um MsgBox.


Sub Exemplo4()
    Dim dataConvertida As Date
    dataConvertida = DateValue("2023-12-31")
    MsgBox "A data convertida é: " & dataConvertida
End Sub

Este exemplo utiliza a função `DateValue` para converter uma string em uma data e a exibe em um MsgBox.


Sub Exemplo5()
    Dim dataPersonalizada As Date
    dataPersonalizada = CDate("15/10/2023")
    MsgBox "A data personalizada é: " & dataPersonalizada
End Sub

Este exemplo utiliza a função `CDate` para converter uma string em uma data personalizada e a exibe em um MsgBox.

CurDir – Diretório Atual

Função CurDir em VBA - caminho do diretório atual

Descrição:

A função CurDir em VBA é uma ferramenta importante para a manipulação de diretórios em aplicações. Ela permite que os desenvolvedores obtenham o caminho do diretório atual (também conhecido como diretório de trabalho) do processo em execução.
Essa função é especialmente útil em situações onde é necessário acessar, salvar ou manipular arquivos em um diretório específico durante a execução de um código VBA. Ao usar a CurDir, os desenvolvedores têm a capacidade de obter informações precisas sobre o diretório em que o código está sendo executado, facilitando a automação de tarefas relacionadas a arquivos e pastas.
Exemplos:


Sub Exemplo1()
    Dim diretorio As String
    diretorio = CurDir
    MsgBox "O diretório atual é: " & diretorio
End Sub

Este exemplo retorna o diretório atual e exibe em um MsgBox.


Sub Exemplo2()
    Dim caminho As String
    caminho = CurDir("\\Servidor\Compartilhado\Pasta")
    MsgBox "O diretório atual em '\\Servidor\Compartilhado\Pasta' é: " & caminho
End Sub

Este exemplo retorna o diretório atual em um caminho de rede especificado e exibe em um MsgBox.


Sub Exemplo3()
    Dim caminho As String
    caminho = CurDir("C:\Pasta")
    MsgBox "O diretório atual em 'C:\Pasta' é: " & caminho
End Sub

Este exemplo retorna o diretório atual em um caminho específico e exibe em um MsgBox.


Sub Exemplo4()
    Dim caminho As String
    ChDir "C:\NovoDiretorio"
    caminho = CurDir
    MsgBox "O novo diretório atual é: " & caminho
End Sub

Este exemplo muda o diretório atual para “C:\NovoDiretorio” e, em seguida, retorna e exibe o diretório atual em um MsgBox.


Sub Exemplo5()
    Dim caminho As String
    caminho = CurDir("D:\OutraPasta")
    MsgBox "O diretório atual em 'D:\OutraPasta' é: " & caminho
End Sub

Este exemplo retorna o diretório atual em um novo caminho especificado e exibe em um MsgBox.

Val – Valores Numéricos

Função Val em VBA - Valor Numérico

Descrição:

A função Val em VBA é uma ferramenta poderosa para a conversão de texto em valores numéricos. Ela analisa uma cadeia de caracteres (string) e tenta interpretá-la como um número, permitindo que o texto represente tanto inteiros quanto decimais. Caso a interpretação seja bem-sucedida, a função retorna o valor numérico correspondente.
Essa função é especialmente útil em situações em que é necessário extrair informações numéricas de entradas de texto, como em formulários ou processamento de dados provenientes de fontes externas. Através da função Val, os desenvolvedores têm a capacidade de realizar conversões eficazes e precisas, contribuindo para a eficiência e exatidão das operações em projetos VBA.
Exemplos:


Sub Exemplo1()
    Dim texto As String
    Dim valor As Double
    
    texto = "42"
    valor = Val(texto)
    MsgBox "O valor é: " & valor
End Sub

Este exemplo converte a string “42” em um valor numérico.


Sub Exemplo2()
    Dim texto As String
    Dim valor As Double
    
    texto = "3.14"
    valor = Val(texto)
    MsgBox "O valor é: " & valor
End Sub

Este exemplo converte a string “3.14” em um valor numérico.


Sub Exemplo3()
    Dim texto As String
    Dim valor As Double
    
    texto = "1234.56"
    valor = Val(texto)
    MsgBox "O valor é: " & valor
End Sub

Este exemplo converte a string “1234.56” em um valor numérico.


Sub Exemplo4()
    Dim texto As String
    Dim valor As Double
    
    texto = "ABC"
    valor = Val(texto)
    MsgBox "O valor é: " & valor
End Sub

Este exemplo tenta converter a string “ABC” em um valor numérico. Como isso não é possível, o valor resultante será 0.


Sub Exemplo5()
    Dim texto As String
    Dim valor As Double
    
    texto = "10.5e3"
    valor = Val(texto)
    MsgBox "O valor é: " & valor
End Sub

Este exemplo converte a string “10.5e3” (equivalente a 10.5 x 10^3 ou 10500) em um valor numérico.