Funções para calcular e apresentar valores de data/hora no Access

Apresentar datas específicas

• O mês actual:
  DateSerial(Year(Date()), Month(Date()), 1)
• O mês seguinte:
  DateSerial(Year(Date()), Month(Date()) + 1, 1)
• O último dia do mês actual:
  DateSerial(Year(Date()), Month(Date()) + 1, 0)
• O último dia do mês seguinte:
  DateSerial(Year(Date()), Month(Date()) + 2, 0)
• O primeiro dia do mês anterior:
  DateSerial(Year(Date()), Month(Date())-1,1)
• O último dia do mês anterior:
  DateSerial(Year(Date()), Month(Date()),0)
• O primeiro dia do trimestre actual:
  DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)
• O último dia do trimestre actual:
  DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)
• O primeiro dia da semana actual (pressupondo domingo = dia 1):
  Date() - WeekDay(Date()) + 1
• O último dia da semana actual:
  Date() - WeekDay(Date()) + 7
• O primeiro dia da semana actual (utilizando definições da caixa de diálogo Opções):
  Date() - WeekDay(Date(), 0) + 1
• O último dia da semana actual:
  Date() - WeekDay(Date(), 0) + 7

Voltar ao topo

Calcular intervalos de tempo

   StartDate=#6/1/93 8:00AM#
   EndDate=#6/3/93 1:00PM#
   ?Format(EndDate-StartDate,"hh:mm")

 '-------------------------------------------------------------------
 ' This sample code separates a time interval into seven variables for
 ' the following values: days, hours, minutes, seconds, total time in
 ' hours, total time in minutes, and total time in seconds.
 '
 ' The interval argument is flexible; it can be a single value, an
 ' expression, or a field reference.
 '-------------------------------------------------------------------

 Dim totalhours As Long, totalminutes As Long, totalseconds As Long
 Dim days As Long, hours As Long, minutes As Long, seconds As Long
 Dim interval As Variant

 days = Int(CSng(interval))
 totalhours = Int(CSng(interval * 24))
 totalminutes = Int(CSng(interval * 1440))
 totalseconds = Int(CSng(interval * 86400))
 hours = totalhours Mod 24
 minutes = totalminutes Mod 60
 seconds = totalseconds Mod 60

• A função ObterDiasDecorridos() calcula o tempo decorrido entre dois valores de data/hora e apresenta o resultado em dias.
• A função ObterTempoDecorrido() calcula o tempo decorrido entre valores de horas e apresenta o resultado em dias, horas, minutos e segundos.
• A função ObterTotalDeCartãoDePonto() soma um campo de valores de horas de uma tabela e apresenta o total em horas e minutos.

Voltar ao topo

Exemplo de função ObterDiasDecorridos()

1. Abra a base de dados de exemplo Adamastor.mdb.
2. Crie um módulo e escreva a seguinte linha na secção Declarations, caso ainda não exista:

    Option Explicit

3. Escreva a seguinte função:

    Function GetElapsedDays (interval)
       Dim days As Long
   
       days = Int(CSng(interval))
       GetElapsedDays = days & " Days "
    End Function

4. Para testar esta função, crie uma nova consulta com base na tabela Encomendas.
5. Na grelha QBE, adicione os seguintes campos.

   <Formatting Type="FixedText"><![CDATA[
       Campo: DataDoEnvio
       Mostrar: Verdadeiro
   
       Campo: DataDaEncomenda
       Mostrar: Verdadeiro
   
       Campo: TempoDecorrido: ObterDiasDecorridos([DataDoEnvio]-[DataDaEncomenda])
       Mostrar: Verdadeiro

6. Execute a consulta. Note que a coluna TempoDecorrido apresenta o número de dias entre o campo DataDoEnvio e o campo DataDaEncomenda de cada registo da tabela Encomendas.

Voltar ao topo

Exemplo de função ObterTempoDecorrido()

1. Crie uma nova tabela com a seguinte estrutura e guarde-a como RegistoDeTempo.

       Tabela: RegistoDeTempo
       ---------------------------
       Nome do campo: HoraDeInício
       Tipo de dados: Data/hora
       Formato: Data geral
   
       Nome do campo: HoraDeFim
       Tipo de dados: Data/hora
       Formato: Data geral

2. Visualize a tabela RegistoDeTempo na vista de folha de dados, introduza os seguintes três registos e feche a tabela:

   <Formatting Type="FixedText"><![CDATA[
       HoraDeInício           	HoraDeFim
       --------------------------------------------
       10/05/95 4:57:00            15/05/95 2:38:00
       11/05/95 10:17:31           24/05/95 6:05:00
       18/05/95 9:16:43            19/05/95 5:03:00

3. Crie um módulo e escreva a seguinte linha na secção Declarations:

    Option Explicit

4. Introduza a a seguinte função:
   

    Function GetElapsedTime(interval)
   
    Dim totalhours As Long, totalminutes As Long, totalseconds As _
        Long
    Dim days As Long, hours As Long, Minutes As Long, Seconds As Long
   
    days = Int(CSng(interval))
    totalhours = Int(CSng(interval * 24))
    totalminutes = Int(CSng(interval * 1440))
    totalseconds = Int(CSng(interval * 86400))
    hours = totalhours Mod 24
    Minutes = totalminutes Mod 60
    Seconds = totalseconds Mod 60
   
    GetElapsedTime = days & " Days " & hours & " Hours " & Minutes & _
    " Minutes " & Seconds & " Seconds "
   
    End Function

   
   NOTA: a função ObterTempoDecorrido requer a passagem de uma data e uma hora.
5. Para testar esta função, crie um novo relatório com base na tabela RegistoDeTempo utilizando o Assistente de relatórios automáticos.
6. Visualize o relatório na vista de estrutura.
7. Adicione uma caixa de texto não ligada à secção de detalhes da tabela RegistoDeTempo e defina as respectivas propriedades da seguinte forma:

   <Formatting Type="FixedText"><![CDATA[
       Caixa de texto
       ---------------
       Nome: TempoDecorrido
       OrigemDoControlo: =ObterTempoDecorrido([HoraDeFim]-[HoraDeInício])
       Largura: 7,5 cm

8. Pré-visualize o relatório. Note que cada registo apresenta o tempo decorrido total em dias, horas, minutos e segundos.

Voltar ao topo

Exemplo de função ObterTotalDeCartãoDePonto()

1. Crie uma nova tabela com a seguinte estrutura e guarde-a como CartãoDePonto.

       Tabela: CartãoDePonto
       ----------------------------
       Nome do campo: Horas diárias
       Tipo de dados: Data/hora
       Formato: Hora abreviada

2. Visualize a tabela CartãoDePonto na vista de folha de dados, introduza os seguintes quatro registos e feche a tabela:

   <Formatting Type="FixedText"><![CDATA[
       8:15
       7:37
       8:12
       8:03

3. Crie um módulo e escreva a seguinte linha na secção Declarations, caso ainda não exista:

    Option Explicit

4. Escreva a seguinte função:

    Function GetTimeCardTotal ()
   
    Dim db As DAO.Database, rs As DAO.Recordset
    Dim totalhours As Long, totalminutes As Long
    Dim days As Long, hours As Long, minutes As Long
    Dim interval As Variant, j As Integer
   
    Set db = dbengine.workspaces(0).databases(0)
    Set rs = db.OpenRecordset("timecard")
    interval = #12:00:00 AM#
       While Not rs.EOF
          interval = interval + rs![Daily hours]
          rs.MoveNext
       Wend
    totalhours = Int(CSng(interval * 24))
    totalminutes = Int(CSng(interval * 1440))
    hours = totalhours Mod 24
    minutes = totalminutes Mod 60
   
    GetTimeCardTotal = totalhours & " hours and " & minutes & " minutes"
   
    End Function

5. Para testar esta função, escreva a seguinte linha na janela Immediate e prima ENTER:
   

    ?GetTimeCardTotal()

   
   Note que a janela Immediate apresenta 32 horas e 7 minutos.

Voltar ao topo