Cálculo en una consulta

(en el baul de reucursos de la abuela, que tengo rebusque y encontre esto
que es de Victor Delgadillo de Miami [MVP] Access, y lo hizo para
ayudarme hara unos 3 years..(má o menó)

Pon esto en un Modulo, y sustituye 'dteOne' y 'dteTwo', por tus campos
'HORA' y 'HORAFIN':


Public Function GetHourMins(pFirstDateTime As Variant, pSecondDateTime As
Variant) As String


' --

' calculates how many hours and minutes between the first date/time and

' and the second date/time.

' Returns the difference in a string 'hhh:mm'

' If input is Null, returns "00:00"


' --

Dim lngMin As Long

Dim dteOne As Date

Dim dteTwo As Date

dteOne = pFirstDateTime

dteTwo = pSecondDateTime

' --

' if dates are in wrong order:

' --

If dteOne > dteTwo Then

dteOne = pSecondDateTime

dteTwo = pFirstDateTime

End If

If Nz(dteOne, "") <> "" Then

If Nz(dteTwo, "") <> "" Then

lngMin = DateDiff("n", dteOne, dteTwo)

GetHourMins = CStr(lngMin \ 60) & ":" & Format(CStr(lngMin
Mod 60), "00")

Else

GetHourMins = "00:00"

End If

Else

GetHourMins = "00:00"

End If



End Function

Y llama a esta funcion el la condi cion de tu consulta.
Espero te sirva.



Saludos desde England
Sendo
summitmedia.co.uk
"Jose" wrote in message
news:

Hola a todos.

Tengo una consulta en la que quiero que haga una resta, seguro que es muy
facil de hacer, pero soy un poco bruto.

Os cuento, tengo en la consulta un campo HORA y otro que es HORAFIN con
datos en forma de hora.minutos.segundos. La cosa está en que quiero sacar

la

diferencia entre HORAFIN y HORA y conocer la duración total en la misma
consulta.

Lo que hago es poner [HORAFIN]-[HORA]

Y como resultado me da Error

¿Me podeís ayudarme?

Muchas gracias y un saludo

Muchas gracias, voy a intentarlo.

Madre mía, tú si que guardas bien las cosas.


"Sendo Gimenez" escribió en el mensaje
news:

(en el baul de reucursos de la abuela, que tengo rebusque y encontre esto
que es de Victor Delgadillo de Miami [MVP] Access, y lo hizo para
ayudarme hara unos 3 years..(má o menó)

Pon esto en un Modulo, y sustituye 'dteOne' y 'dteTwo', por tus campos
'HORA' y 'HORAFIN':


Public Function GetHourMins(pFirstDateTime As Variant, pSecondDateTime As
Variant) As String

' --

' calculates how many hours and minutes between the first date/time

and

' and the second date/time.

' Returns the difference in a string 'hhh:mm'

' If input is Null, returns "00:00"

' --

Dim lngMin As Long

Dim dteOne As Date

Dim dteTwo As Date

dteOne = pFirstDateTime

dteTwo = pSecondDateTime

' --

' if dates are in wrong order:

' --

If dteOne > dteTwo Then

dteOne = pSecondDateTime

dteTwo = pFirstDateTime

End If

If Nz(dteOne, "") <> "" Then

If Nz(dteTwo, "") <> "" Then

lngMin = DateDiff("n", dteOne, dteTwo)

GetHourMins = CStr(lngMin \ 60) & ":" & Format(CStr(lngMin
Mod 60), "00")

Else

GetHourMins = "00:00"

End If

Else

GetHourMins = "00:00"

End If



End Function

Y llama a esta funcion el la condi cion de tu consulta.
Espero te sirva.



Saludos desde England
Sendo
summitmedia.co.uk
"Jose" wrote in message
news:
> Hola a todos.
>
> Tengo una consulta en la que quiero que haga una resta, seguro que es

muy

> facil de hacer, pero soy un poco bruto.
>
> Os cuento, tengo en la consulta un campo HORA y otro que es HORAFIN con
> datos en forma de hora.minutos.segundos. La cosa está en que quiero

sacar

la
> diferencia entre HORAFIN y HORA y conocer la duración total en la misma
> consulta.
>
> Lo que hago es poner [HORAFIN]-[HORA]
>
> Y como resultado me da Error
>
> ¿Me podeís ayudarme?
>
> Muchas gracias y un saludo
>
>