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

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

Função Data() 

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: 

Nota: O comando MsgBox, utilizado em programação no Microsoft Access, faz com que seja aberta uma janela com uma mensagem na tela. 

Função Tempo()

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: 

Função Dia(Data) 

Recebe como parâmetro uma data, e retorna um número entre 1 e 31, indicando o dia do mês. A data pode ser um valor de data válido ou o nome de um campo do tipo Data/Hora. O formato geral é o seguinte: 

Dia("31/10/1970")

Dia([DataDoPedido]) 

Considere o exemplo abaixo: 

MsgBox “Dia do mês: “ & Dia(Data( )) 

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

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

Função Mês(Data) 

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

Mês(data)

Mês("10/09/1999")

Mês([DataDoPedido]) 

Considere o exemplo abaixo: 

MsgBox “Mês do ano: “ & Mês(Data( )) 

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

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

Função Agora() 

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: “ & Agora( ) 

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

Função MonthName(número,True/False) 

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: “ & MonthName(Mês(Data(),False) 

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

A função Date() captura a data do sistema e passa como parâmetro para a função Mês(). A função Mês() 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 Hora(horário) 

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: 

Hora(horário) 

Considere o exemplo abaixo: 

MsgBox “Hora do dia: “ & Hora(Tempo( )) 

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

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

A função DateDiff(intervalo, data1,data2)

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é 31 de Dezembro de 1999. Para isso, utilizaríamos o seguinte comando  

MsgBox “Meses desde o descobrimento: “ &  DateDiff(“m”,”22/04/1500”,”31/12/1999”) 

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

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 “Meses desde o descobrimento: “ &  DateDiff(“h”,”22/04/1500”,”31/12/1999”) 

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

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: 

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: 

Função Ano(Data) 

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

Ano(data)

Ano("01/01/2002")

Ano([DataDoPedido]) 

Considere o exemplo abaixo: 

MsgBox “Ano atual: “ & Ano(Data( )) 

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

A função Data() captura a data do sistema e passa como parâmetro para a função Ano(), 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(“31/12/1999”) 

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

O valor 6, indica que foi uma Sexta-feira, 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(“31/12/1999”,2) 

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

O valor 5, indica que foi uma Sexta-feira, 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: