[Resolvido]Adicionar horas a uma data, resultando em uma nova data

Olá amigos,

Estou desenvolvendo um projeto e dependo muito da ajuda de vcs.
Tenho um campo insiro a data inicial e preciso somar horas nele.

Exemplo:
O serviço inicia as 08h do dia 02/11/2016. Em um campo irei digitar a quantidade de horas que esse serviço deverá durar, ex: 24.
O sistema deverá retornar algo tipo 03/11/2016 08:00:00
Caso digite 48 retornaria 04/11/2016 08:00:00

em anexo um exemplo

Obrigado!

Amigo, da uma verificada se o DateAdd nao supre suas necessidades...


yyyy Year
q = Quarter
m = Month
y = Day of the year
d = Day
w = Weekday
ww = Week
h = Hour
n = Minute
s = Second

No Exemplo que passou, ficaria algo parecido com isso:
No Evento apos atualizar do seu Campo Duração coloque:

Private Sub duracao_AfterUpdate()

Me.datafinal = DateAdd("h", Me.duracao, Me.datainicial)

End Sub

Valeu Fábio, obrigado.

Grato pelo Retorno! até a Proxima se Deus quiser