Microsoft Office Online
Iniciar sessão no Meu Office Online (O que é isto?) | Iniciar sessão

 
 
Microsoft Office Access
Procurar
Procurar
 
 
 
 
Aviso: está a visualizar esta página com um browser não suportado. Este Web site funciona melhor com o Microsoft Internet Explorer 6.0 ou posterior, o Firefox 1.5 ou o Netscape Navigator 8.0 ou posterior. Mais informações sobre browsers suportados.

Função SomData
 

Devolve uma Variante (Data) que contém uma data à qual foi adicionado um intervalo de tempo específico.

Sintaxe

SomData(intervalo, número, data)

A sintaxe da função SomData tem os seguintes argumentos (argumento: valor que fornece informações a uma acção, evento, método, propriedade, função ou procedimento.):

Argumento Descrição
intervalo Obrigatório. Cadeia de expressão (expressão de cadeia: expressão que equivale a uma sequência de caracteres contíguos. Os elementos da expressão podem ser: funções que devolvem uma cadeia ou uma Variante de cadeia (VarType 8); uma cadeia literal, uma constante, uma variável ou Variante.) que é o intervalo de tempo que pretende adicionar.
número Obrigatório. Expressão numérica (expressão numérica: qualquer expressão que possa gerar um número. A expressão pode ser qualquer combinação de variáveis, constantes, funções e operadores.) que é o número de intervalos que pretende adicionar. Pode ser positiva (para obter datas no futuro) ou negativa (para obter datas no passado).
data Obrigatório. Variante (Data) ou valor literal que representa a data em que o intervalo é adicionado.

Definições

O argumento (argumento: valor que fornece informações a uma acção, evento, método, propriedade, função ou procedimento.) intervalo tem as seguintes definições:

Definição Descrição
yyyy Ano
q Trimestre
m Mês
y Dia do ano
d Dia
w Dia da semana
ww Semana
h Hora
n Minuto
s Segundo

Observações

Pode utilizar a função SomData para adicionar ou subtrair um intervalo de tempo especificado de uma data. Por exemplo, pode utilizar a função SomData para calcular uma data 30 dias a partir do dia de hoje ou uma hora 45 minutos a partir de agora.

Para adicionar dias à data, pode utilizar Dia do Ano ("y"), Dia ("d") ou Dia da Semana ("w").

A função SomData não devolverá uma data inválida. O exemplo seguinte adiciona um mês a 31 de Janeiro:

DateAdd("m", 1, "31-Jan-95")

		

Neste caso, SomData devolve 28-Fev-95 e não 31-Fev-95. Se a data for 31-Jan-96, devolve 29-Fev-96, porque 1996 é um ano bissexto.

Se a data calculada preceder o ano 100 (ou seja, se subtrair mais anos do que os existentes na data), ocorre um erro.

Se o número não for um valor Longo (tipo de dados longo: tipo de dados fundamental que contém números inteiros grandes. Uma variável do tipo Longo é armazenada como um número de 32 bits que varia entre -2.147.483.648 e 2.147.483.647.), antes de ser avaliado, é arredondado para o número inteiro mais próximo.

 Nota    O formato do valor devolvido em SomData é determinado pelas definições no Painel de Controlo e não pelo formato que é introduzido no argumento data.

 Nota    Em data, se a definição da propriedade do Calendário for Gregoriano, a data fornecida tem de ser Gregoriana. Se o calendário for Hijri, a data fornecida tem de ser Hijri. Se os valores dos meses forem nomes, o nome tem de ser consistente com a definição da propriedade actual do Calendário. Para minimizar a possibilidade de existência de conflitos entre os nomes dos meses e a definição da propriedade actual do Calendário, introduza valores numéricos para o mês (formato de Data Abreviada).

Exemplo

 Nota   Os exemplos que se seguem demonstram a utilização desta função num módulo do Visual Basic for Applications (VBA). Para mais informações sobre como trabalhar com VBA, seleccione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de procura.

Este exemplo utiliza uma data como dados de introdução e utiliza a função SomData para apresentar 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
anúncio