ACCESS VBA Agregar horas y minutos a una fecha
Quería agregar horas y minutos acumulados a una fecha. Me podríais ayudar a simplificarlo hacerlo más coherente.
Dim minParoIni As Byte, hhParoRestoTurIni As Byte
Dim hParo As Date
Dim acumIni as Integer
'horas de paro que podemos tener en el día que esta en curso de los turnos que le preceden al actual
iniProd = DateAdd("n", acumIni * 60, Now)
hhParoRestoTurIni = Mid(hParoRestoTur, 1, InStr(1, hParoRestoTur, ":") - 1)
minParoIni = Left(Mid(hParo, InStr(1, hParo, ":") + 1), InStr(1, hParo, ":"))
iniProd = DateAdd("h", hhParoIni + hhParoRestoTurIni, iniProd)
iniProd = DateAdd("n", minParoIni, iniProd)
