Funções de cálculo e de exibição de valores Data/Hora no Access - Microsoft

Exibindo datas específicas
Para exibir datas específicas, é possível usar a função DateSerial() para manipular partes de dia, mês e ano de uma data. Por exemplo, é possível usar as seguintes expressões na propriedade ControlSource de uma caixa de texto ou na janela Immediate para retornar às datas específicas:
•O mês atual:
DateSerial(Ano(Data()), Mês(Data()), 1)
•O próximo mês:
DateSerial(Ano(Data()), Mês(Data()) + 1, 1)
•O último dia do mês atual:
DateSerial(Ano(Data()), Mês(Data()) + 1, 0)
•O último dia do próximo mês:
DateSerial(Ano(Data()), Mês(Data()) + 2, 0)
•O primeiro dia do mês anterior:
DateSerial(Ano(Data()), Mês(Data())-1,1)
•O último dia do mês anterior:
DateSerial(Ano(Data()), Mês(Data()),0)
•O primeiro dia do trimestre atual:
DateSerial(Ano(Data()), Int((Mês(Data()) - 1) / 3) * 3 + 1, 1)
•O último dia do trimestre atual:
DateSerial(Ano(Data()), Int((Mês(Data()) - 1) / 3) * 3 + 4, 0)
•O primeiro dia da semana atual (considerando que domingo = dia 1):
Data() - DiaSem(Data()) + 1
•O último dia da semana atual:
Data() - DiaSem(Data()) + 7
•O primeiro dia da semana atual (usando definições na caixa de diálogo Opções):
Data() - DiaSem(Data()) + 1
•O último dia da semana atual:
Data() - DiaSem(Data(), 0) + 7

http://support.microsoft.com/kb/210604/pt-br

já consultou o Datas no Access aqui ?

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Bom também!