Este exemplo utiliza a função DateDiff para exibir o número de dias entre uma determinada data e hoje.
Dim AData As Date ' Declara as variáveis.
Dim Msg
AData = InputBox("Insira uma data")
Msg = "Dias a contar de hoje: " & DateDiff("d", Agora, AData)
MsgBox Msg
Comentários
Você pode utilizar a função DateDiff para determinar quantos segmentos de tempo especificados existem entre duas datas. Por exemplo, você pode utilizar DateDiff para calcular o número de dias entre duas datas, ou o número de semanas entre hoje e o final do ano.
Para calcular o número de dias entre date1e date2, você pode utilizar Dia do ano ("y") ou Dia ("d"). Quando interval for um Dia da semana ("w"), DateDiff retorna o número de semanas entre as duas datas. Se date1 cair em uma segunda-feira, DateDiff contará o número de segundas-feiras até date2. É contada date2 mas não date1. Entretanto, se interval for Semana ("ww") a função DateDiff retorna o número de semanas de calendário entre as duas datas. Ela conta o número de segundas-feiras entre date1 e date2. DateDiff conta date2 se cair em um domingo, mas não conta date1, mesmo que caia em um domingo.
Se date1 se referir a um ponto no tempo além de date2, a função DateDiff retornará um número negativo.
O argumento Mindayofweek afeta os cálculos que utilizam os símbolos de intervalo "w" e "ww".
Se data1 ou data2 for uma literal de data,, o ano especificado se torna uma parte permanente daquela data. Entretanto, se data1 ou data2 for colocada entre aspas duplas (" ") e você omitir o ano, o ano atual será inserido no seu código cada vez que a expressão data1 ou data2 for avaliada. Isto torna possível escrever o código que pode ser utilizado em anos diferentes.
Quando compara 31 de dezembro com 1º de janeiro do ano imediatamente seguinte, DateDiff para Ano ("yyyy") retorna 1, mesmo que tenha se passado apenas um dia.
