Júlio Battisti Livros e Cursosa sua sala de aula na internet

Neste item, aprenderemos a utilizar as principais funções do VBA. Apresentaremos as funções divididas em categorias, conforme a funcionalidade destas. Trataremos das seguintes categorias:

• Funções para manipulação de String.
• Funções para manipulação de Data/Hora.
• Funções matemáticas.

Funções para tratamento de String.

Veremos as principais funções para tratamento de String.

Função Asc

A função Asc, retorna o valor numérico do código ASCII, para a primeira letra de uma String. Considere o exemplo:

Asc(“Ainda chovia”)

Este exemplo de uso da função retorna o valor 65, o qual é o código ASCII, para a letra A maiúscula. Caso fosse a letra "a" minúscula, o código retornado seria 97 e assim por diante.

Função Chr

A função Chr(número), recebe um número como parâmetro, e retorna o caracter ASCII, associado ao número passado como parâmetro.

Considere o exemplo:
Chr(65)

Este exemplo de uso da função retorna o caracter "A" maiúsculo.

NOTA: Até agora, utilizamos a função Chr em diversos exemplos. Utilizamos o Chr(13), para simular um ENTER, o que faz uma quebra de linha, nas mensagens montadas com o MsgBox.

Função Len

Esta função determina o tamanho da String que foi passada como parâmetro para a função. Considere o exemplo:

MsgBox Len(“Este é um exemplo de uso da função Len !!”)

Este exemplo de uso da função, retorna 41, conforme indicado na Figura a seguir:

Figura 170 – Resultado.

Função LCase

Esta função converte para minúsculas, a String que foi passada como parâmetro para a função. Considere o exemplo:

MsgBox Lcase(“ESTE É UM EXEMPLO DE USO DA FUNÇÃO LCASE!!”)

Este exemplo de uso da função, converte o parâmetro passado, para letras minúsculas.

Função UCase

Esta função converte para MAIÚSCULAS, a String que foi passada como parâmetro para a função. Considere o exemplo:

MsgBox Lcase(“este é um exemplo do uso da função ucase !!”)

Este exemplo de uso da função, converte o parâmetro passado, para letras maiúsculas.

Função Left

Esta função retorna um número especificado de caracteres, a partir do início (Left – Esquerda) de uma String. É importante salientar que espaços em branco também devem ser considerados.
O formato geral da função é o seguinte:

Left(String, n)

Onde n é o número de caracteres a retornar.

Considere o exemplo:

MsgBox Left(“Júlio Cesar Fabris Battisti”,5)

Este exemplo de uso da função, retorna as cinco primeiras letras da string passada, neste caso, retornará Júlio.

Figura 171 – Resultado.

Vamos alterar um pouco o nosso exemplo:

MsgBox Left(“Júlio Cesar Fabris Battisti”,7)

Irá retornar: Júlio C.

Figura 172 – Resultado.

Observe que o espaço em branco também é considerado.

Função Right

Esta função retorna um número especificado de caracteres, a partir do final (Right – Direita) de uma String. É importante salientar que espaços em branco também devem ser considerados.

O formato geral da função é o seguinte:

Right(String, n)

Onde n é o número de caracteres a retornar.

Considere o exemplo:

MsgBox Right(“Júlio Cesar Fabris Battisti”,6)

Este exemplo de uso da função, retorna as seis últimas letras da String passada, neste caso, retornará “ttisti”.

Figura 173 – Resultado.

Vamos alterar um pouco o nosso exemplo:

MsgBox Right(“Júlio Cesar Fabris Battisti”,10)

Irá retornar: s Battisti

Figura 174 – Resultado.

Observe que o espaço em branco também é considerado.

Função Mid

Esta função retorna um número especificado de caracteres, a partir de uma posição especificada, dentro da String. É importante salientar que espaços em branco também devem ser considerados.

O formato geral da função é o seguinte:

Mid(String, posicao_inicio, n)

onde:

posicao_inicio é a posição a partir da qual devem ser retornados caracteres
n é o número de caracteres a retornar.

Considere alguns exemplos:

MsgBox Mid(“Júlio Cesar Fabris Battisti”,7,5)

Este exemplo de uso da função, retorna, a partir da posição 7, 5 caracteres, neste caso, retornará Cesar.

Figura 175 – Resultado.

A seguir outro exemplo:

MsgBox Mid(“SANTA MARIA”,3,7)

, irá retornar NTA MAR. Observe que o espaço em branco também é considerado.

Figura 176 – Resultado.

Um detalhe interessante, é que podemos utilizar o valor retornado por uma função, como parâmetro para outra função. Considere o seguinte exemplo:

MsgBox LCase(Mid(“SANTA MARIA”,3,7))

Este exemplo retorna nta mar.

Figura 177 – Resultado.

A função Mid retira os caracteres NTA MAR, os quais são passados como parâmetros para a função LCase, a qual converte os caracteres para minúsculos.

Função String

Esta função retorna um determinado caracter, um número especificado de vezes.

O formato geral da função é o seguinte:

String(n, Caracter)

onde n é o número de vezes que Caractere deve ser repitido.

Considere o exemplo:

MsgBox String(35,”*”)

A Figura a seguir mostra o resultado deste comando:

Figura 178 – Resultado.

Veremos as principais funções para tratamento de Data e Hora.

Função Date

Retorna a data corrente do sistema. Não precisamos passar parâmetros para esta função. Considere o exemplo abaixo:

MsgBox “Data do Sistema: “ & Date()

O resultado deste comando, está indicado na Figura a seguir:

Figura 179 – Resultado.

Função Time

Retorna a hora corrente do sistema. Não precisamos passar parâmetros para esta função. Considere o exemplo abaixo:

MsgBox “Hora do Sistema: “ & Time( )

O resultado deste comando, está indicado na Figura a seguir:

Figura 180 – Resultado.

Função Day

Recebe como parâmetro uma data, e retorna um número entre 1 e 31, indicando o dia do mês. O formato geral é o seguinte:

Day(data)

Considere o exemplo abaixo:

MsgBox “Dia do mês: “ & Day(Date( ))

O resultado deste comando, está indicado na Figura a seguir:

Figura 181 – Resultado.

A função Date( ) captura a data do sistema e passa como parâmetro para a função Day, a qual por sua vez, retorna apenas o dia do mês.

Função Month

Recebe como parâmetro uma data, e retorna um número entre 1 e 12, indicando o mês do ano. O formato geral é o seguinte:

Month(data)

Considere o exemplo abaixo:

MsgBox “Mês do ano: “ & Month(Date( ))

O resultado deste comando, está indicado na Figura a seguir:

Figura 182 – Resultado.

A função Date( ) captura a data do sistema e passa como parâmetro para a função Month, a qual por sua vez, retorna apenas o mês do ano

Função Now

Retorna a hora  e a data corrente do sistema. Não precisamos passar parâmetros para esta função. Considere o exemplo abaixo:

MsgBox “Data e Hora do Sistema: “ & Now( )

O resultado deste comando, está indicado na Figura a seguir:

Figura 183 – Resultado.

Função MonthName

Recebe como parâmetro um número, indicativo do mês do ano (1 – Janeiro, 2 – Fevereiro, e assim por diante), e um segundo parâmetro que pode ser Verdadeiro ou Falso. Se o segundo parâmetro for verdadeiro, o nome do mês será exibido abreviadamente. O formato geral é o seguinte:

MonthName(número_do_mês, abreviar)

Considere o exemplo abaixo:

MsgBox “Mês do ano: “ & Month Name(Month(Date(),False))

A função Date() captura a data do sistema e passa como parâmetro para a função Month. A função Month retorna o número do mês retornado pela data. Este número é passado como primeiro parâmetro para a função MonthName. O segundo parâmetro é definido em Falso, o que significa que é para exibir o nome do mês por extenso, isto é, não abreviado.

Função Hour

Recebe como parâmetro uma hora, e retorna um número entre 0 e 23, indicando o hora do dia. O formato geral é o seguinte:

Hour(horário)

Considere o exemplo abaixo:

MsgBox “Hora do dia: “ & Hour(Time( ))

O resultado deste comando, está indicado na Figura a seguir:

Figura 184 – Resultado.

A função Time() captura a hora do sistema e passa como parâmetro para a função Hour(), a qual por sua vez, retorna apenas o hora do dia.

A função DateDiff

Esta função pode ser utilizada para determinar o número de intervalos (em dias, trimestres, semestres, anos, etc), entre duas datas. A sintaxe desta função é o seguinte:

DateDiff(intervalo, data1, data2)

O parâmetro intervalo é uma String que diz que tipo de intervalo vamos calcular. Por exemplo, é este parâmetro que define se queremos calcular o número de dias, ou o número de meses entre duas datas. Na Tabela a seguir, temos os valores possíveis para o parâmetro intervalo.

Tabela - Valores para o parâmetro intervalo.

A título de exemplo, vamos calcular o número de meses, desde o descobrimento do Brasil, até 29 de Julho de 2010. Para isso, utilizaríamos o seguinte comando

MsgBox “Meses desde o descobrimento: “ & DateDiff(“m”,”22/04/1500”,”29/07/2010”)

O resultado deste comando, pode ser conferido na Figura a seguir:

Figura 185 – Resultado.

Vamos modificar um pouco o nosso exemplo, e calcular o número de horas desde o descobrimento. Para isto, podemos utilizar o seguinte comando:

MsgBox “Número aproximado de Horas, desde o descobrimento: “ & DateDiff(“h”,”22/04/1500”,” 29/07/2010”)

O resultado deste comando, pode ser conferido na Figura a seguir:

Figura 186 – Resultado.

A função DateAdd

Esta função pode ser utilizada para determinar uma data futura, com base em uma data fornecida, o tipo de período a ser acrescentado (dias, meses, anos, etc), e o número de períodos a serem acrescentados. A sintaxe desta função é o seguinte:

DateAdd(intervalo, número_de_intervalos, data)

O parâmetro intervalo é uma String que diz que tipo de intervalo vamos acrescentar. Por exemplo, é este parâmetro que define se queremos acrescentar um número especificado de dias, meses, anos, etc. Na Tabela a seguir, temos os valores possíveis para o parâmetro intervalo.

Tabela - Valores para o parâmetro intervalo.

A título de exemplo, vamos calcular a data em que tivemos um período de 1000 meses, após o descobrimento do Brasil. Para isso, utilizaríamos o seguinte comando:

MsgBox “Mil meses após o descobrimento foi em :  “ & DateAdd(“m”,1000,”22/04/1500”)

O resultado deste comando, pode ser conferido na Figura a seguir:

Figura 187 – Resultado.

Vamos modificar um pouco o nosso exemplo, e calcular em que data teremos passado um milhão de dias após o descobrimento.

MsgBox “Um milhão de dias após o descobrimento em : “ & DateAdd(“d”,1000000,”22/04/1500”)

O resultado deste comando, pode ser conferido na Figura a seguir:

Figura 188 – Resultado.

Função Year

Recebe como parâmetro uma data, e retorna um número indicativo do ano. O formato geral é o seguinte:

Year (data)

Considere o exemplo abaixo:

MsgBox “Ano atual: “ & Year(Date( ))

O resultado deste comando, está indicado na Figura a seguir:

Figura 189 – Resultado.

A função Date() captura a data do sistema e passa como parâmetro para a função Year, a qual por sua vez, retorna apenas o ano.

Função WeekDay

Recebe como parâmetros uma data, e um parâmetro opcional, que indica qual o primeiro dia da semana. Se este parâmetro for omitido, o primeiro dia da semana será considerado Domingo. O valor para o primeiro dia da semana é numérico: 1 – Domingo, 2 – Segunda-feira, e assim por diante.

WeekDay(data, prim_dia_semana.)

Considere o exemplo abaixo:

MsgBox “Dia da semana: “ & WeekDay(“01/08/2010”)

O resultado deste comando, está indicado na Figura a seguir:

Figura 190 – Resultado.

O valor 1, indica que foi um domingo, o que confere com o calendário.

Poderíamos determinar que o primeiro dia da semana é a Segunda-feira (2 para o último parâmetro). Com isso o nosso exemplo, ficaria assim:

MsgBox “Dia da semana: “ & WeekDay(“01/08/2010”,2)

O resultado deste comando, está indicado na Figura a seguir:

Figura 191 – Resultado.

O valor 7, indica que foi um domingo, pois agora a Segunda-feira passou a ser o dia 1, a Terça-feira o dia 2, e assim por diante. Novamente confere com o calendário.

Função WeekDayName

Recebe como parâmetro um número, indicativo do dia da semana, e um segundo parâmetro que pode ser Verdadeiro ou Falso. Se o segundo parâmetro for verdadeiro, o nome do dia da semana será exibido abreviadamente. O formato geral é o seguinte:

WeekDayName(número_do_dia, abreviar)

Considere o exemplo abaixo:

MsgBox “Dia da semana: “ & WeekDayName(6,False)

O resultado deste comando, está indicado na Figura a seguir:

Figura 182 – Resultado.