Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-08-2004
Avatar de salvica
salvica salvica is offline
Miembro
 
Registrado: mar 2004
Ubicación: Albacete (España) ... En un lugar de la Mancha ...
Posts: 304
Poder: 21
salvica Va por buen camino
La comparación siempre evalúa a falso

Hola, a ver si me podeis echar una mano.
Código Delphi [-]
 var
   tmpFecha    : TDateTime;
   tmpHora     : TDateTime;
   strSqlTabla : string;
   Y, M, D     : word;
   H, N, S, MS : word;
 begin
   DecodeDate( Now, Y, M, D );
   D :=   21;
   M :=    8;
   Y := 2004;
   DecodeTime( Now, H, N, S, MS );
   tmpFecha := EncodeDate( Y, M, D );
   H        := H - 6;
   if( H<0 ) then begin  //----------> Comparison alwais evaluates to False
       H := 24 - H;
       tmpFecha := tmpFecha - 1;
   end;
   tmpHora     := EncodeTime( H, 0, 0, 0 );
Supongo que si a las tres de la madrugada le resto seis ¿dará negativo?
Gracias a todos
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 10:12:28.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi