Sumar tiempo en un informe

[Koudelka]

pues eso, que me gustaria saber cómo hacer para que un informe me haga una suma del tiempo. Tengo un campo llamado horas que me muestra el tiempo que se ha tardado en hacer una actividad. Me gustaria que en un informe me mostrase, una actividad y me hiciese una suma de todo el tiempo transcurrido en un tiempo (por ejemplo).

Con saber cómo hacer la suma me basta.

PD: el campo es fecha/hora

[seyko]

Para sumar se usa la función de agregación sum() y el operador +
Ahora depende de si tu BD te lo permite, sino tendras que hacerte una función para ello.
Por eso es SIEMPRE RECOMENDABLE indicar que BD usas

Salu2

[Koudelka]

uso una base de datos de access 2003. En cuanto a la suma yo lo que quiero es que me sume un sólo campo, por lo que no puedo poner campo + campo, sino que haga una suma total de campo... no se si me explico.

[seyko]

uff de access ni idea.
En cuanto te lea taribo seguro que si access tiene algo lo conoce!

Salu2

[Taribo007]

Si he entendido bien, deberia valer con un cuadro de texto en el pie del informe con origen de control:

=suma(nombreControlDelCampo)

Un saludo

[Koudelka]

de esa manera no me funciona -.-

veamos, el campo horas (el que quiero sumar) es un campo de texto, el problema es que horas sale de dos campos que están en formato hora. Puede ser ese el problema?

[Taribo007]

Y de que forma sale el campo horas de dos campos con formato fecha???

Un saludo

[Koudelka]

perdón por tardar en contestar (vacaciones XD). Veamos, si no recuerdas mal tariboo, se hizo un módulo con lo siguiente:

Código:

Public Function HoraMinutosSegundos(Seg As Long) As Date
Dim horas As Long
Dim minutos As Long

horas = Int(Seg / 3600)
Seg = Seg - horas * 3600

minutos = Int(Seg / 60)
Seg = Seg - minutos * 60

HoraMinutosSegundos = TimeSerial(horas, minutos, Seg)
End Function

Después de eso, había dos botones que al pulsarlos guardaban la hora actual, pero en el segundo, había lo siguiente (que es donde calcula la hora final).

Código:

Private Sub fin_Click()
fin.ForeColor = vbRed
Me.TxtHoraFinal = Time()

TxtTiempoTrancurrido = HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))

'Me.TxtTiempoTrancurrido = HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))
End Sub

Lo que necesito es que en el informe, me muestre el TxtTiempo Transcurrido (lo hace), peeeero que abajo de la hoja (por ejemplo) me haga una suma total de todo ese tiempo transcurrido, me explico?

[Koudelka]

veamos, he conseguido que en el informe me calcule el total, ahora bien, no me lo pone en horas, sino en un número, por ejemplo 0,1684.... (que es algo así como 4 horas y no se cuantos minutos). Cómo puedo hacer que esa suma me la muestre en horas?