Problema con calculos de hora

[[maeyanes]]

Hola...

Caral, en que lugar se asigna TiempoDespues al campo ZConfigHora1? Por que yo no lo veo por ningún lado...

Ahora, enecumene, la verificación de la hora no debería ser:

Código Delphi [-]
if Ahora > MarcarLuego then
begin
  // ...
end

?

Saludos...

[[enecumene]]

Gracias Maeyanes por responder, MarcarLuego se trata de otro código que forma parte de ese que posteé, su función es la siguiente:

ZMarcadoENTRADA = es la hora de llegada que marcó el empleado.
MarcarLuego = es la suma de 30 minutos + la hora de llegada.

Ejemplo;

Fernando Leonor llego marco a las 8:16:31 AM
Fernando Leonor vuelve a marcar por que olvido ya habia marcado, a las 8:28:15.

8:16:31 + 00:30:00 = 8:36:31;

Si 8:28:15 es menor que 8:36:31 le avisa al empleado que ya marcó, es para evitar doble registro.

Código:

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

Pero el problema es que las ignora, los brinca y sigue el proceso.

Saludos.

[[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.

[[Caral]]

Hola

Empezado por maeyanes

Hola...

Caral, en que lugar se asigna TiempoDespues al campo ZConfigHora1? Por que yo no lo veo por ningún lado...

Pues es una buena pregunta, pero no tengo la respuesta, como tampoco veo por ningún lado la relación de marcarluego como indicas.
Normalmente es para pedir un poco mas de información, ya que no se entiende.
Os dejo con esto, que para eso sois los que sabéis.
Saludos