sumar una hora

Koudelka · #1 (**permalink**) 02/09/2008, 04:37

Veamos, en un formulario de acces, en un campo tengo lo siguiente:

=CFecha(SiInm(Hora([TxtTiempoTrancurrido])>9;Hora([TxtTiempoTrancurrido]);'0' & Hora([TxtTiempoTrancurrido])) & ':' & SiInm(Minuto([TxtTiempoTrancurrido])>54;(Hora([txtTiempoTrancurrido]))+1 & ':00:00';SiInm(Minuto([TxtTiempoTrancurrido])>45;'45';SiInm(Minuto([TxtTiempoTrancurrido])>29;'30';SiInm(Minuto([TxtTiempoTrancurrido])>15;'15';'00') & ':00'))))

El problema que tengo es en la parte en que pongo que si es mayor de 54 se sume una hora al campo txtTiempoTrancurrido. Alguien sabe cómo hacerlo? (el resto de lo expuesto me funciona).

jurena · #2 (**permalink**) 02/09/2008, 05:23

Koudelka,

No entiendo bien toda la lógica y, la verdad, creo que corres peligro con una sintaxis de > 54, > 45, > 30 y > 15, pues lo que es mayor que 15 también puede ser mayor que todos los demás. Yo intentaría hacerlo con rangos between 15 and 30, between 30 and 45, etc. Y además.
No sé cómo has anidado los SiInm, pero parece que esto debería funcionar
SiInm(Minuto([TxtTiempoTrancurrido])>54;Hora([txtTiempoTrancurrido])+1 & ':00:00'; Hora([txtTiempoTrancurrido]))
Necesitas las dos condiciones: si supera, se le suma una hora, y, si no, no se le suma.
No estoy seguro...

Koudelka · #3 (**permalink**) 02/09/2008, 05:33

No me funciona lo de la hora, de todas formas ya me han dicho que quite esa opción. No se porqué dices que 15 puede ser mayor que los demás, ya que lo único que modifico son los minutos o_O.

jurena · #4 (**permalink**) 02/09/2008, 05:38

Cita:

Iniciado por Koudelka

No me funciona lo de la hora, de todas formas ya me han dicho que quite esa opción. No se porqué dices que 15 puede ser mayor que los demás, ya que lo único que modifico son los minutos o_O.

Lo que digo (quizás no me he expresado bien) es que un número de minutos mayor que 15 puede ser también mayor que 30, que 45 y que 54.
Me explico, qué ocurrirá con tu consulta cuando el minuto sea 56, por ej. 1:56:00
le afectarán las codiciones para mayor que 15, que 30, que 45 y que 54. Cuál de ellas tomará, etc.
A eso me refiero.

Koudelka · #5 (**permalink**) 02/09/2008, 05:43

Ya te entiendo, pero yo lo veo de la siguiente manera.

Si te fijas, lo primero que mira los minutos es si es mayor de 54, en caso de que sí lo sea, haría lo de sumar una hora más (que al final lo he quitado), en caso de que sea menor, salta al siguiente paso que es 45. Y así sucesivamente.

Así es como yo lo veo, quizás me equivoque y no lo haga así (de momento no me ha dado problemas)

jurena · #6 (**permalink**) 02/09/2008, 05:47

llevas razón, anidando esos SiInm, y ordenando de mayor a menor, también te funcionará. De hecho te está funcionando.
Saludos.

Koudelka · #7 (**permalink**) 08/09/2008, 04:03

resurjo mi tema porque ahora sí que necesito sumar la hora (si es que los jefes no se aclaran!).

Partiendo de lo anterior, sería añadir un nuevo SiInm... en el que si es mayor de 54 minutos que se sume la hora. He intentado poner que los minutos se cambien a 60 (igual colaba y se sumaba la hora) pero no funciona y necesito ideas >.<

jurena · #8 (**permalink**) 08/09/2008, 05:01

Prueba esto, Koudelka:

=CFecha(SiInm(Minuto([txttiempotranscurrido])>54,AgregFecha('n',-Minuto([txttiempotranscurrido]),AgregFecha('h',1,([txttiempotranscurrido]))),'minutos inferiores a 54'))

Si el minuto es superior a 54, suma una hora y resta los minutos... ¿es eso lo que querías...? En el lugar de 'minutos inferiores a 54, pones los otros SiInm... que te funcionaban).

Koudelka · #9 (**permalink**) 12/09/2008, 03:27

Bueno jurena, siento haber tardado en contestar (nunca me dejan terminar las cosas y ya me ponen otras para hacer ¬¬). He intentado ponerlo de la siguiente manera:

=CFecha(SiInm(Hora([calculo2])>9;Hora([calculo2]);'0' & Hora([calculo2])) & ':' & SiInm(Minuto([calculo2])>54;AgregFecha('n',-Minuto([calculo2]) & AgregFecha('h',1,([calculo2])));SiInm(Minuto([calculo2])>28;'30';SiInm(Minuto([calculo2])>13;'15';'00') & ':00')))

El problema es que si lo pego al origen de datos se me borra entero o_O

jurena · #10 (**permalink**) 14/09/2008, 08:17

Koudelka,

Esto lo he probado en consulta y sobre un campo hora llamado calculo2. Creo que hace lo que pides, pero seguramente haya otra solución más fácil.

salida: SiInm(Hora(SiInm(Minuto([calculo2])>54,AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2]))),SiInm(Minuto([calculo2])>28,AgregFecha('n',30-Minuto([calculo2]),([calculo2])),SiInm(Minuto([calculo2])>13,AgregFecha('n',15-Minuto([calculo2]),([calculo2])),AgregFecha('n',-Minuto([calculo2]),([calculo2]))))))>9,SiInm(Minuto([calculo2])>54,AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2]))),SiInm(Minuto([calculo2])>28,AgregFecha('n',30-Minuto([calculo2]),([calculo2])),SiInm(Minuto([calculo2])>13,AgregFecha('n',15-Minuto([calculo2]),([calculo2])),AgregFecha('n',-Minuto([calculo2]),([calculo2]))))),'0' & SiInm(Minuto([calculo2])>54,AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2]))),SiInm(Minuto([calculo2])>28,AgregFecha('n',30-Minuto([calculo2]),([calculo2])),SiInm(Minuto([calculo2])>13,AgregFecha('n',15-Minuto([calculo2]),([calculo2])),AgregFecha('n',-Minuto([calculo2]),([calculo2]))))))

Koudelka · #11 (**permalink**) 15/09/2008, 04:23

He copiado lo que me has dicho y me sale el siguiente error:

http://img139.imageshack.us/my.php?image=errorwg8.jpg

Según tú lo has hecho en una consulta, yo lo hago en un formulario (no creo que esto influya no?), de todas formas... no tendría que estar separado por ; en vez de comas? me explico:

SiInm([Lo que sea]=algo;opción verdadera; segunda opcion)

Aún así veo la sentencia un poco larga @_@. No se, no se podría acortar de esta manera?:

=CFecha(SiInm(Hora([calculo2])>9;Hora([calculo2]);'0' & Hora([calculo2])) & ':' & SiInm(Minuto([calculo2])>45;(AgregFecha('h',1,([calculo2])) & Minuto('n',-Minuto([calculo2])));SiInm(Minuto([calculo2])>28;'30';SiInm(Minuto([calculo2])>13;'15';'00') & ':00')))

Esta opción la he probado y me salta con otro error eh?

jurena · #12 (**permalink**) 15/09/2008, 07:44

Koudelka,
varias cosas: lo de la coma o punto y coma depende; si en tu programa separas con punto y coma, cambia la coma por punto y coma (en el mío sólo me acepta la coma: cosas de la configuración regional y de algún otro detalle). Pon punto y coma en tus separaciones de las condicionales.
No lo he probado en un formulario, pero la única diferencia sería que un dato pasado al formulario fuera interpretado como cadena de texto, y tendrías que añadir CFecha([calculo2]) en todas las ocasiones en que trabajases sobre el dato, es decir, cuando escribías Minuto([calculo2]), tendrías que escribir Minuto(CFecha([calculo2])). Y cuando escribes ([calculo2]), deberías escribir CFecha([calculo2]). Es decir, siempre que trabajases con el dato y lo quisieras usar como hora, deberías hacer la conversión.
En cuanto a la longitud de la consulta, no creo que sea un problema, pero piensa que lo que estás haciendo es:

si minutos > 9 (si (mayor que 54; añade una hora y deja los minutos a 0; si (mayor que 28; deja los minutos a 30; si (mayor que 13; deja los minutos a 15; deja los minutos a 0 ))); '0'&(si (mayor que 54; añade una hora y deja los minutos a 0; si (mayor que 28; deja los minutos a 30; si (mayor que 13; deja los minutos a 15; deja los minutos a 0 )))

Una condicional encadenada para los minutos, pero para añadir el 0, la condicional engloba a las encadenadas, pues eso será posterior a lo otro; piensa una hora que es 9:56; primero pasará a 10:00 y luego se quedará ahí; pero si encadenas la otra condicional, pasará a 10:00, y luego a 00:00.

Koudelka · #13 (**permalink**) 15/09/2008, 07:55

Originalmente yo lo tengo así:

=CFecha(SiInm(Hora([calculo2])>9;Hora([calculo2]);'0' & Hora([calculo2])) & ':' & SiInm(Minuto([calculo2])>43;'45';SiInm(Minuto([calculo2])>28;'30';SiInm(Minuto([calculo2])>13;'15';'00') & ':00')))

Y así me funciona correctamente, por lo que no se porqué hay que añadirle el CFecha todo el rato >.<

He intentado guiarme con lo que me has dicho, poniendo lo siguiente:

=CFecha(SiInm(Minuto([calculo2]))>54;AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2])));SiInm(Minuto([calculo2])>28;'30';SiInm(Minuto([calculo2])>13;'15';'00'))))

Pero me sale el siguiente error:
http://img136.imageshack.us/my.php?image=errorab6.jpg

Creo que lo que puede dar error es es lo que marco en rojo:

=CFecha(SiInm(Minuto([calculo2]))>54;AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2])));SiInm(Minuto([calculo2])>28;'30';SiInm(Minuto([calculo2])>13;'15';'00'))))

jurena · #14 (**permalink**) 15/09/2008, 08:23

pon ahí también punto y coma, por si 'cuela'.

edito: no veo la imagen del error.

Koudelka · #15 (**permalink**) 15/09/2008, 08:33

El error estaba en unos paréntesis de más, pero sigue dando un error que dice:

Omitió un operando o un operador, introdujo un carácter o coma no válidos o introdujo texto sin encerrarlo en comillas

Poniéndole el ; en donde la coma sale el mismo mensaje >.<

jurena · #16 (**permalink**) 15/09/2008, 09:00

para comprobar el error, parcela la sintaxis y ve por partes:
= SiInm(Hora(SiInm(Minuto([calculo2])>54; AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2])));"54 o menos minutos")

Prueba esto y observa qué ocurre con las horas que pasen de 54 minutos

Si sigue dando problema, prueba a añadir el punto y coma dentro del AgregFecha
= SiInm(Hora(SiInm(Minuto([calculo2])>54; AgregFecha('n';-Minuto([calculo2]);AgregFecha('h';1;([calculo2])));"54 o menos minutos")

Koudelka · #17 (**permalink**) 15/09/2008, 09:07

Da el mismo error de antes de las dos formas T.T

jurena · #18 (**permalink**) 15/09/2008, 09:18

Koudelka,

he probado esto con datos en un formulario:
=SiInm(Minuto([calculo2])>54,AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2]))),"54 o menos minutos")

y a mí me ha funcionado perfectamente. Prueba tú con puntos y coma, como en esta de abajo):

=SiInm(Minuto([calculo2])>54;AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2])));"54 o menos minutos")

y como tercera opción así:
=SiInm(Minuto([calculo2])>54;AgregFecha('n';-Minuto([calculo2]);AgregFecha('h';1;([calculo2])));"54 o menos minutos")

a ver si ahora empezamos a ver la luz

Koudelka · #19 (**permalink**) 15/09/2008, 09:25

La primera línea me dice que es posible que haya introducido un operador sin un operador

Las otras dos dan el error anterior -.-

jurena · #20 (**permalink**) 15/09/2008, 09:37

Koudelka,

he probado de nuevo en un formulario con un campo texto y añadido la sintaxis y funciona bien.
Sólo por lanzar un disparo al aire, no será que estás escribiendo dos iguales, es decir, cuando pegas la sintaxis, ya el programa añade un igual, por lo que el primer igual sobra y da el problema que dices (con el mensaje que pareces estar recibiendo). Vuelve a empezar y pega esto:

SiInm(Minuto([calculo2])>54,AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2]))),"54 o menos minutos")

Koudelka · #21 (**permalink**) 15/09/2008, 09:54

poniendo eso no me da error, pero si ejecuto el formulario pone #¿Nombre?

jurena · #22 (**permalink**) 15/09/2008, 10:05

EDITO para decirte que creo que esto funcionará:

Cita:

Formato(SiInm(Minuto([calculo2])>54,AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2]))),SiInm(Minuto([calculo2])>28,AgregFecha('n',30-Minuto([calculo2]),([calculo2])),SiInm(Minuto([calculo2)>13,AgregFecha('n',15-Minuto([calculo2]),([calculo2])),AgregFecha('n',-Minuto([calculo2]),([calculo2]))))),"hh:mm")

Con el formato hh:mm sacamos los ceros que quieres, y solo mostramos horas y minutos.

Koudelka · #23 (**permalink**) 16/09/2008, 02:24

No me hace nada, sólo pone #¿Nombre?

jurena · #24 (**permalink**) 16/09/2008, 03:08

¡Qué raro!
si quieres, envíame a mi correo particular una versión comprimida de tu base con las tablas implicadas, con datos ficticios, y con las consultas y formularios necesarios; indícame dónde quieres sacar eso y trataré de resolverlo y enviártelo hecho. Mi versión de Access es de 2002, con lo que probablemente tendrías que guardarla con un formato anterior si tienes una versión muy actualizada.
Mi correo es [email protected]

Koudelka · #25 (**permalink**) 16/09/2008, 03:22

uso el 2003, a ver qué puedo hacer con la base de datos para enviartela.

Koudelka · #26 (**permalink**) 16/09/2008, 04:37

Ya te he enviado el e-mail con la BD. Decir que laiba a convertir a 2002, pero me he dado cuenta de que estaba hecha para access 2000 o_O

jurena · #27 (**permalink**) 16/09/2008, 05:35

Koudelka,

ya lo he recibido y trataré de echarle un vistazo, aunque esta tarde me será imposible...

Koudelka · #28 (**permalink**) 18/09/2008, 01:47

ya he hecho lo que me pedías y sigue fallando (mira el mp)

jurena · #29 (**permalink**) 18/09/2008, 04:57

Koudelka,

dime cómo llega calculo2 a ese formulario. ¿Qué es exactamente, se trata de un alias de un cálculo que viene de una consulta y se muestra en ese formulario, o qué? Eso es importante, pues, como te dije, la sintaxis funciona perfectamente cuando se trata de un campo creado en tabla y mostrado en un formulario. Me dices que algo que te dije no funciona, ¿a qué te refieres? ¿qué es ese mp?

Koudelka · #30 (**permalink**) 18/09/2008, 06:17

hice lo que tú me pediste, crear una nueva base de datos, hacer una tabla con un campo llamado calculo2 de formato hora larga y después introdujese varias horas.

Creé un formulario en el que se mostraba calculo2 (las horas que había metido) y he creado un nuevo campo de texto con esto de origen de datos:

Formato(SiInm(Minuto([calculo2])>54,AgregFecha('n',-Minuto([calculo2]),AgregFecha('h',1,([calculo2]))),SiInm(Minuto([calculo2])>28,AgregFecha('n',30-Minuto([calculo2]),([calculo2])),SiInm(Minuto([calculo2)>13,AgregFecha('n',15-Minuto([calculo2]),([calculo2])),AgregFecha('n',-Minuto([calculo2]),([calculo2]))))),"hh:mm")

Poniéndole un = me da error y si no lo pongo me muestra #¿Nombre? en el campo de texto.