Retorna uma Variante (Data) que contém a data à qual o intervalo de tempo especificado foi adicionado.
Sintaxe
DateAdd ( intervalo, número, data )
A sintaxe da função DateAdd tem os seguintes argumentos:
Argumento | Descrição |
|---|---|
|
intervalo |
Obrigatório. Expressão de cadeia de caracteres que é o intervalo de tempo que você deseja adicionar. |
|
número |
Obrigatório. Expressão numérica que é o número de intervalos que você deseja adicionar. Pode ser positivo (para obter datas no futuro) ou negativo (para obter datas no passado). |
|
data |
Obrigatório. Variante (Date) ou literal representando a data à qual o intervalo é adicionado. |
Dica: No Access 2010, o construtor de expressões tem o IntelliSense, portanto, você pode ver quais argumentos sua expressão requer.
Configurações
O intervaloargumento tem as seguintes configurações:
Configuração | Descrição |
|---|---|
|
aaaa |
Ano |
|
q |
Trimestre |
|
m |
Mês |
|
y |
Dia do ano |
|
d |
Dia |
|
w |
Dia da semana |
|
ss |
Semana |
|
h |
Hora |
|
n |
Minuto |
|
s |
Segundo |
Comentários
Você pode usar a função SomData para adicionar ou subtrair um intervalo de tempo especificado a partir de uma data. Por exemplo, você pode usar DateAdd para calcular uma data de 30 dias a partir de hoje ou um período de 45 minutos a partir de agora.
Para adicionar dias à Data, você pode usar o dia do ano ("y"), dia ("d") ou dia da semana ("w").
A função DateAdd não retornará uma data inválida. O exemplo a seguir adiciona um mês a 31 de janeiro:
DateAdd("m", 1, "31-Jan-95")
Nesse caso, DateAdd retorna 28-fev-95, e não 31-fev-95. Se a Data for 31-Jan-96, será retornado 29-fev-96 porque 1996 é um ano bissexto.
Se a data calculada preceder o ano 100 (ou seja, você subtrair mais anos do que há em Data), ocorrerá um erro.
Se núm não for um valor longo, será arredondado para o número inteiro mais próximo antes de ser avaliado.
Observação: O formato do valor de retorno para DateAdd é determinado por configurações do painel de controle , não pelo formato que é passado no argumento de Data .
Observação: Para Data, se a configuração da propriedade calendário for Gregoriano, a data fornecida deverá ser Gregoriana. Se o calendário for islâmico, a data fornecida deverá ser islâmica. Se os valores de mês forem nomes, o nome deve ser consistente com a configuração de propriedade de calendário atual. Para minimizar a possibilidade de nomes de meses em conflito com a configuração de propriedade de calendário atual, insira valores numéricos de mês (formato de data abreviada).
Exemplos de consulta
Expressão | Resultados |
|---|---|
|
Selecione DateAdd ("YYYY", 1, [DateofSale]) como expr1 do ProductSales; |
Retorna os resultados adicionando 1 ano aos valores de data do campo "DateofSale". |
|
Selecione DateAdd ("YYYY",-1, [DateofSale]) como expr1 do ProductSales; |
Retorna os resultados subtraindo 1 ano para os valores de data do campo "DateofSale". |
|
Selecione DateAdd ("d", 10, [DateofSale]) como NewDate de ProductSales; |
Retorna os resultados na coluna "NewDate" adicionando 10 dias aos valores de data do campo "DateofSale". |
|
Selecione DateAdd ("SS",-1, [DateofSale]) como NewDate de ProductSales; |
Retorna os resultados na coluna "NewDate" subtraindo 1 semana (7 dias) dos valores de data do campo "DateofSale". |
Exemplo de VBA
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo do Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione referência do desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
Este exemplo assume uma data como entrada e usa a função SomData para exibir uma data correspondente a um número especificado de meses no futuro.
Dim FirstDate As Date ' Declare variables.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m" ' "m" specifies months as interval.
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " & _
DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg
Observação: Esta página foi traduzida automaticamente e pode apresentar erros gramaticais ou imprecisões. Nosso objetivo é que este conteúdo seja útil para você. Você pode nos dizer se as informações foram úteis? Use o artigo em inglês como referência.
