BASICO: COMO TRAZER O DIA ANTERIOR?

USUARIO.EXCLUIDOS 06/07/2004 11:34:03
#32435 Resposta escolhida

Exemplo:

'++++++++++++++++++++++++++++++++++++++++++++++++++++
'Para adicionar a uma data:
'
'DateAdd(IntervalType, Number, FirstDate)
'
'O intervalo, tem as seguintes definições:
'
'yyyy -Ano
'm -Mes
'y - Dia do Ano
'd -Dia
'w - Dia da Semana
'ww -Semana
'h -Hora
'n -Minuto
's -Segundo
'+++++++++++++++++++++++++++++++++++++++++++++++++++++

Dim FirstDate As Date ' Declaração de variáveis.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "d" ' "d" especifica os dias de intervalo
FirstDate = InputBox("Indique a data Inicial")
'Exemplos(+1 dia ...1) (-1 dia ...-1)
Number = InputBox("Indica o número de dias para adicionar-subtrair")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)

João Mateus