Necesito una ayuda con la función, creo que está todo bien menos la declaración de la función
La llamada de la función o la definición de la misma está mal, el resto creo que funcion
Código vb:
Ver original'aquí creo que está el error
Public Function stime(hour()) As String
'i = numero de horas sumar
Dim i As Integer
i = UBound(hour)
'Si alguna cadena NO es valida la función da un error
For k = 0 To i
If Not IsNull(hour(k)) And Not IsDate(hour(k)) Then
stime = ""
Exit Function
Next k
'sum =rresultado de la suma
Dim sum As Date
'esto no se si es necesario
sum = 0
For k = 0 To i
sum = hour(k) + sum
Next k
'devuelve el resultado
stime = Format(sum, "HH:mm")
Exit Function
End Function
Código vb:
Ver originalmsgbox( stime.stime({"10:00","13:00","00:30"}) )
PD: la función lee strings porque tiene que leer de varios textboxes.
Gracias de antemano.