Access - calculos en campos fecha

 
Vista:

calculos en campos fecha

Publicado por juan (1 intervención) el 04/06/2006 20:22:27
quiero un campo de una tabla calcule automaticamente la difFecha en minutos como puedo lograrlo muchas gracias saludos juan
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:calculos en campos fecha

Publicado por 2pl (3 intervenciones) el 04/06/2006 22:07:12
Mirate esta función
*********************************************************************
'* calcula el tiempo transcurrido entre dos fechas / horas y lo devuelve expresado
'* en días, horas, minutos y segundos
'* uso: TiempoTranscurrido("15/09/1956", cStr(Now))
'* devuelve 16.237 Días, 9 Horas, 58 Minutos y 20 Segundos
'*********************************************************************

Function TiempoTranscurrido(Inicio As String, Fin As String) as String
Dim lngTotalHoras As Long, _
lngTotalMinutos As Long, _
lngTotalSegundos As Long, _
lngDias As Long, _
lngHoras As Long, _
lngMinutos As Long, _
lngSegundos As Long, _
dblIntervalo As Double

' calculo el intervalo de tiempo
dblIntervalo = CDate(Fin) - CDate(Inicio)
' lo descompongo en sus partes
lngDias = Int(CSng(dblIntervalo))
lngTotalHoras = Int(CSng(dblIntervalo * 24)) ' total horas en el periodo
lngTotalMinutos = Int(CSng(dblIntervalo * 1440)) ' total minutos en el periodo
lngTotalSegundos = Int(CSng(dblIntervalo * 86400)) ' total segundos en el periodo
lngHoras = lngTotalHoras Mod 24 ' me quedo solo con los restos
lngMinutos = lngTotalMinutos Mod 60
lngSegundos = lngTotalSegundos Mod 60
' lo devuelvo
TiempoTranscurrido = Format(lngDias, "#,###") & " Días, " & lngHoras & " Horas, " & _
lngMinutos & " Minutos y " & lngSegundos & " Segundos"
End Function ' TiempoTranscurrido
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar