02/09/2008, 06:41
|
 | | | Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 17 años, 5 meses Puntos: 18 | |
| Respuesta: Una hora mas en el horario
Igual te vale tambien esto: copia esta funcion en un modulo:
Public Function UnaHoraMas(Var As String) As String
Dim ArrayV As Variant
ArrayV = Split(Var, " - ")
UnaHoraMas = Format(DateAdd("h", 1, CDate(ArrayV(0))), "hh:mm") & " - " & Format(DateAdd("h", 1, CDate(ArrayV(1))), "hh:mm")
End Function
Y la llamas asi desde un celda
=UnaHoraMas(Hoja1!A1)
Un saludo |