Problema con calculos de hora

[[gluglu]]

Sin entrar en mayores análisis del código expuesto, solamente digo que trabajar con horas y variables tipo TTime me ha traido demasiados quebraderos de cabeza.

Desde hace tiempo decidí convertir previamente todos los tipos Time a String, antes de cualquier operación, consultar, etc. (Eso no quita que en la base de datos las sigo almacenando como tipo Time).

Y desde entonces todos mis problemas desaparecieron.

Es simplemente una reflexión.

[[gluglu]]

Código Delphi [-]
Ahora       := FormatDateTime('hhnnss', Time);
MarcarLuego := FormatDateTime('hhnnss', ZMarcadoENTRADA.Value + StrToTime(TiempoDespues));
if Ahora < MarcarLuego then
  ....

[[enecumene]]

Empezado por gluglu

Sin entrar en mayores análisis del código expuesto, solamente digo que trabajar con horas y variables tipo TTime me ha traido demasiados quebraderos de cabeza.

Desde hace tiempo decidí convertir previamente todos los tipos Time a String, antes de cualquier operación, consultar, etc. (Eso no quita que en la base de datos las sigo almacenando como tipo Time).

Y desde entonces todos mis problemas desaparecieron.

Es simplemente una reflexión.

Pues deja hacer el intento de convertir todos los time en string, luego os comento.

[[enecumene]]

Hola, gracias a Gluglu pude resolver esa parte del código de esta manera:

Código Delphi [-]
var  MarcarLuego, Ahora, Limite: string;
           TiempoDespues: TTime;
      
      TiempoDespues := IncMinute(ZMarcadoENTRADA.value, 30);
      MarcarLuego := FormatDateTime('hhnnss', TiempoDespues);
      Ahora := FormatDateTime('hhnnss', Time);
      Limite := FormatDateTime('hhnnss', ZConfigHORA1.Value);

if ZTable1TANDA.AsInteger = 1 then
                  begin
                    if Ahora > Limite then
                      begin
                        ZAtraso.Close;
                        ZAtraso.SQL.Clear;
                        ZAtraso.SQL.Add('insert into TARDANZAS(ID,EMPID,FECHA) values(NULL, :Cod, :Hoy)');
                        ZAtraso.ParamByName('Cod').AsInteger := ZTable1ID.AsInteger;
                        ZAtraso.ParamByName('Hoy').AsDate := Date;
                        ZAtraso.ExecSQL;
                      end;
                    end;

Gracias Gluglu, ahora, hice lo siguiente para esta otra parte del código:

Código Delphi [-]
if Ahora < MarcarLuego then
            begin
              Label1.Caption := '¡Ya habías Ponchado!';
              Actualizar.Enabled := True;
              Exit;
            end

Pero no me la está tomando en cuenta, no entiendo, por qué en un lado funciona y en el otro no?. Bueno, el código anterior tiene la función como había explicado anteriormente, que si un empleado marcó a una hora y por cosa de la vida no recuerda que habia marcado su entrada y vuelve a marcar antes de media hora luego de haber marcado la primera, el sistema le avisa que ya marcó su hora, pues a pesar de la propuesta de Gluglu en este caso me sigue ignorando el calculo.

Saludos.

[[gluglu]]

Se debe de escapar algo en tu código ...

Algo tiene que haber en tu código que te modifique los valores. Deberás comprobar justo antes de la comparación, los valores que toman las variables.

[[enecumene]]

Empezado por gluglu

Se debe de escapar algo en tu código ...

Algo tiene que haber en tu código que te modifique los valores. Deberás comprobar justo antes de la comparación, los valores que toman las variables.

Vale, estoy en eso y no he encontrado el problema, pero ya lo encontraré y luego te comento la solución, y de Nuevo gracias por tu ayuda .

Saludos.

[Casimiro Noteví]

Yo lo que no entiendo es por qué tratar los datos time como strings. Los times son números y por lo tanto más fáciles de hacer cálculos con ellos.

[[gluglu]]

Pongo un ejemplo en el que (para mi) la ventaja de utilizar strings es muy grande.

Hace poco se me presentó el problema de obtener todos aquellos registros que se encuentren entre una fecha y hora, y otra fecha y hora.

Vuelvo a indicar que en la base de datos sí que almaceno los valores como Date y Time, pero para cálculo COMPARATIVO es mucho más rápido y facil utilizar strings. Puede ser (y ciertamente le doy la razón) que como dice Casimiro, para sumas, restas, y otras operaciones de cálculo sea más fácil tratarlos como Time y Date que son.

Pero volviendo al problema que planteaba :

Supongamos que quiero obtener todos los registros cuya Fecha y Hora se encuentren entre el 28/05/2008 a las 19:41:02 y el 02/06/2008 a las 08:12:59.

Creo que cualquier comparación posible se hace mucho más fácil e inmediata si manejamos esos valores como 20080528194102 y 20080602081259

Por ejemplo, vemos que si convertimos 31/05/2008 00:45:13 en 20080531004513 obtendremos que ese string está comprendido entre los dos valores anteriores. Al tratarlo como String, Delphi nos da la solución directamente, con una única comparación.

Es mi opinión personal en cualquier caso.