VBA - función que suma array de horas

[jayjayjay_92]

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:

'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:

msgbox( stime.stime({"10:00","13:00","00:30"}) )
 

PD: la función lee strings porque tiene que leer de varios textboxes.

Gracias de antemano.

[erbuson]

Hola, antes de nada, en la funcion hay algunos errores que debes verificar:
Personalmente le pasaría los datos como Cadena y los ajustaría dentro de la funcion:

Código vb:

Public Function stime(hour() As String) As String
  Dim k As Integer     'Definirlo para evitar errores
  'Si alguna cadena NO es valida la función da un error
  For k = 0 To ubound(hour)
    If Not IsNull(hour(k)) And Not IsDate(hour(k)) Then Exit Function
    'stime = ""   ' No es necesario porque stime no tiene valor asignado
    'Exit Function
    ' Aqui te faltaba un End If si lo ponías en dos lineas, tal como te lo dejo no hace falta.
Next     ' No es necesario indicar Next k 
 
Dim sum As Date
' sum = 0 Efectivamente no es necesario
 
For k = 0 To ubound(hour)
  sum = CDate(hour(k)) + sum
Next
 
'devuelve el resultado
stime = Format(sum, "HH:mm")
'Exit Function 'Ya estás en el final por lo tanto sale implicitamente
 
End Function
 

Cro que esta prueba funciona

Código vb:

Public Function stime(Hour() As Variant) As String
  Dim k As Integer
  For k = 0 To UBound(Hour)
    If Not IsNull(Hour(k)) And Not IsDate(Hour(k)) Then Exit Function
  Next
  Dim sum As Date
  For k = 0 To UBound(Hour)
    sum = CDate(Hour(k)) + sum
  Next
  stime = Format(sum, "HH:mm")
End Function
 
Private Sub Command1_Click()
  Dim Hour() As Variant
  Hour = Array("10:00", "13:00", "00:30")
  MsgBox stime(Hour())
End Sub
 

Aunque arriba te indicaba definir como String, en las pruebas he tenido que hacerlo como Variant porque la funcion Array devuelve una matriz Variant.

Todo dependerá de como le pases realmente los valores.

Saludos

[jayjayjay_92]

En primer lugar, muchas gracias (que además es la 2ª vez que me sacas las castañas del fuego con el maldito formulario). Como supongo que habrás imaginado no programo en VB (de hecho soy de sistemas), esto es un caso excepcional y la verdad es que sin tu ayuda no se que hubiera hecho :).

PD: todo lo que me has puesto funciona a la perfección.

[erbuson]

De nada, encantado de servir de ayuda de vez en cuando.
Saludos

[XYON126]

Hola!

Es solo para saludar a Erbuson que tanto me ha ayudado, un saludote y perdonar si no estoy demasiado por aqui pero estoy liado con vba de Catia que fue la razón por la que me inicie en el vb 6.0.

Un saludote Erbuson.