Access - AYUDA URGENTE CON HORAS!!!!!

 
Vista:

AYUDA URGENTE CON HORAS!!!!!

Publicado por vallo (16 intervenciones) el 28/03/2003 23:20:13
Buenas a todos,
Necesito hacer esto urgente:
Si tengo una operacion de horas por ejemplo
Diffecha("h",8:20, 6:00)
El resultado es 2 horas, pero en realidas faltan 10 minutos y yo quiero que me redonde a 3 horas. Como HAGO...

SAludos de antemano y gracias...

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:AYUDA URGENTE CON HORAS!!!!!

Publicado por mariano (88 intervenciones) el 29/03/2003 19:51:44
Puedes poner este CODIGO en el procedimiento o funcion donde haya que calcular las horas.
--------------------------------------------------------------------------------------
Dim Minutos As Double, f1, f2 As Date, Resto, Horas As Integer
f2 = "8:20"
f1 = "6:00"

Minutos = DateDiff("n", f1, f2)
Horas = Minutos / 60
Resto = Minutos Mod 60
If Resto > 0 Then
Horas = Horas + 1
End If
---------------------------------------------------------------------------------
Ahora, en la variable Horas tienes las horas redondeadas si hay algun minuto de mas en la resta de las horas.
Tienes que abrir la ventana de codigo del formulario y pegar esas lineas donde corresponda, en un procedimiento o funcuion

un saludo

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