Hola!
yo diría que solo lo puedes hacer con VBA, pero tampoco me extrañaría que algún artista me demostrara lo contrario, esto funciona
Function Prueba(Rango As Range) As Long
Dim Matriz As Variant, _
lngTotal As Long, _
i As Long
Matriz = Split(Rango, vbLf)
For i = 0 To UBound(Matriz)
If InStr(Matriz(i), "dia") > 0 Then
lngTotal = lngTotal + Val(Matriz(i)) * 1440
ElseIf InStr(Matriz(i), "hora") > 0 Then
lngTotal = lngTotal + Val(Matriz(i)) * 60
Else
lngTotal = lngTotal + Val(Matriz(i))
End If
Next i
Prueba = lngTotal
End Function
Saludos a todos desde Huelva Emilio http://www.mvp-access.es/emilio/