SoloCodigo

Hola, nuevamente gente querida de solocodigo, hay que ver lo que hace no tener internet y 5 semanas sin monitor, hasta recuperarse de eso  

Me he encontrado con una verdadera inconcordancia de validación de datos en unas sentencias IF que tengo. Las sentencias IF evaluar unas Horas que estan en unas variables.

Las variables no estan como Date, sino Variant y se les trabaja con formato de hora/Fecha por Format.




En el codigo IF haciendo una corrida en frio tengo lo siguiente:
IF (8:30 AM >= 7:00 PM) AND (7:00 AM <= 5:00 AM) THEN
     HrsExtraN1 = HrsExtSal1 = 1,5
ELSE
     HrsExtraN1 = 0
END IF

Claro, la validación es (05/09/2007 8:30 AM) etc... pero lo puse sin las fechas, ya que son horas del mismo dia, para verse más claro y sencillo.

Lo raro aqui es que la sentencia IF si se cumple cuando no deberia, deberia de pasarse al ELSE, pero por alguna extraña razón que desconozco, la sentencia si se cumple. Incluso las decisiones están por AND y no por OR, si se cumple una y otra no, igual no entra, pero ninguna se cumple y entra  

Esto es lo que uno indicaria estar, totalmente desconcertado, perplejo, en shock
PD: Los AM y PM si son los que se indican, lo he revisado una y otra vez para ver si es verdad lo que mis ojos ven, pero si, tengo una sentencia IF que no se cumple, pero que igual entra en ella, si se cumple lo cual no deberia de ser.

Los datos vienen de unos Combobox (indiferente si fuesen de unos Textbox) y los dtp son DTPicker, de esos controles de Fecha. Esos datos los meto en las variables que aqui aparecen y procedo con lo de los IF.

hola! que mas compadre!

Si esas variables si estan inicializadas lo que pasa es que los IF están en un procedimiento y las declaraciones de las variables estan al tope de todo el modulo, es que copie y pegue para esta oportunidad en el post. todas las variables tienen sus datos, creo que VB6 tiene problema en sus IF para evaluar datos de este tipo. No puedo trabajar las variables de otra forma porque precisamente necesito que sean horas con fecha.

Y no sé qué otra solución podría tener para evaluar estas horas con fecha en un IF.

Hola nuevamente

Me volvia loco el enorme codigo de validacion de horas que tenia que crecio y creio hasta tal punto que daba miedo verlo y hacerle algo, basandome en una ecuacion para Excel para determinar entre una hora1 y una hora2 la cantidad de horas entre ambas, termine haciendo otro codigo nuevo.

Gracias a una ayuda de alguien que me pidio si podia conseguir la manera de calcular horas en excel encontre esto en internet: =SI(B1>A1;B1-A1;B1+(1-A1))
y basandome en eso arme esto:


Siendo LbHorasTurnoD1 = Mid(CDate(Hr2) + (1 - CDate(Hr1)), 12, 5) el que hace el asunto en cuestion.

Antes el resuntado entre ambas horas lo sacaba en dato numerico, pero era inestable, no era preciso, con el escrito nuevo el resultado lo volvi a poner y dejar en horas (el resultado entre ambas horas) asi no se pela en el resultado. Pero eso me ocasiona un problema, el que necesito sumar todos los resultados de Hora que estan en la tabla, de un empleado. Como el resultado no es numerico sino en formato de Texto, no puedo usar el Sum() de SQL. El resultado se guarda en la tabla en fomato Texto y no de hora, porque al resultado no le guardo ningun am o pm.

A los campos HoraEntrada y HoraSalida si se guardan con su am y pm, pero el resultado entre ambas horas solo guardo, por ejemplo, 05:00 o 04:30, es decir, el empleado trabajó 5Hrs o trabajo ese dia 4Hrs y 1/2.

Bueno, este tipo de cosas no es raro que pase, se resuelve un problema pero que ocasiona otro, voy a poner el asunto en el foro de bases de datos, haber si tiene solucion, fuera de eso, creo que este episodio termina aqui en este foro.