Desesperado al comparar dos fechas - horas

[[gluglu]]

Me acabo de dar cuenta de un detalle :

Espero que estés comparando los variables correctas de TDateTime de tu aplicación.

Estás mostrando comparaciones entre TDateTime1 y TDateTime2. Supongo que deberías tener declarado en tu programa dos varibales del tipo TDateTime. Algo así como :

Código Delphi [-]
var
  Fecha1, Fecha2 : TDateTime;
  ...

Y la comparación estás haciéndola con Fecha1 y Fecha2 :

Código Delphi [-]
if Fecha1 = Fecha2 then ...

Me desconcierta un poco tu código donde haces la comparación entre TDateTime1 y TDateTime2. Si es una simple cuestión de nomenclatura de tus variables, bien. Pero si no es así, revísalo.

Por otro lado, deberías de asignar los valores de tus variables de fecha y hora a comporar a unos strings de esta manera :

Código Delphi [-]
var
  Aux_String1, Aux_String2 : String
  ...
 
// en algún procedimiento de tu programa
Aux_String1 := FormatDateTime('dd/mm/yyyy hh:nn:ss', Fecha1);
Aux_String2 := FormatDateTime('dd/mm/yyyy hh:nn:ss', Fecha2);

y que expongas aquí los valores que te devuelven Aux_String1 y Aux_String2 para ver tus valores concretos.

[PabloTech]

Utilizando las herramientas provistas por gluglu podemos comparar las fechas y horas como si fueran cadenas. De esta forma yo propongo lo siguiente (que a mi parecer es infalible).

Código Delphi [-]
var  Fecha1, Fecha2: TDateTime;
  Tiempo1, Tiempo2: String;
begin
// Si en Fecha1 guardo la fecha 23/08/1974 y la hora 15:15:00 y
// en Fecha2 guardo la misma fecha pero con un minuto antes.
  Fecha1 := StrToDateTime('23/08/1974 15:15:00');
  Fecha2 := StrToDateTime('23/08/1974 15:14:00');
//  ...
 
// en algún procedimiento de tu programa
  Tiempo1 := FormatDateTime('yyyy/mm/dd hh:nn:ss', Fecha1);
  Tiempo2 := FormatDateTime('yyyy/mm/dd hh:nn:ss', Fecha2);
// Entonces obtendría lo siguiente:
//   Tiempo1 sería igual a: '1974/08/23 15:15:00' y
//   Tiempo2 sería igual a: '1974/08/23 15:14:00' entonces
// ambas cadenas son perfectamente comparables
  ShowMessage('Tiempo1 = ' + Tiempo1 + ' y Tiempo2 = ' + Tiempo2);
  if Tiempo1 = Tiempo2 then
    ShowMessage('Son los mismos tiempos.')
  else
    if Tiempo1 > Tiempo2 then
      ShowMessage('El primer tiempo es mayor.')
    else
      ShowMessage('El segundo tiempo es mayor.');
// Lo correcto es que observes dos ventanas.
// La primera con los datos almacenados en Tiempo1 y Tiempo2; y
// la segunda, con el mensaje 'El primer tiempo es mayor'.

Suerte y espero que te sirva.

[fidel]

Deberías poner tu código completo.

¿Qué significa "No funciona" para tí?

Porque si no funciona te debe dar algún error, o si no te da error es que si que funciona.

Por lo tanto la conclusión que yo saco, es que sí que funciona pero que no te da el resultado que tu crees que debe dar.

Si es esto así, creo que el error sería que tu piensas que las variables son iguales y en realidad no lo son, o que piensas que son distintas y en realidad son iguales.

Recuerdo vagamente que algún problema de este tipo tuve restando dos fechas y no salía lo que yo pensaba que tenia que salir debido a las diferencias entre Now y Date.

Un saludo.

[PabloTech]

Bueno..! ¿Qué pasó? ¿Me perdí de algo? ¿A qué conclusión llegamos? ¿Al final, la comparación entre fechas funciona?

....???

[Alejandrina]

Hola, tengo el siguiente problema :
Requiero comparar la fecha de una tabla con la fecha tomada por el sistema.
El campo en la tabla es tipo Date.
La variable que toma la fecha del sistema es tipo String.
Es algo como esto:
fechaArranque:string;
.
.
fechaArranque:=datetostr(date);
Es así como tomo la fecha pero cuando hago esta pregunta:
if (Dmsip.TblSolicituDiarios['FECHA']=fechaArranque then

me presenta el siguiente error:
[Error] UFrmSolicitudPendiente.pas(201): Incompatible types: 'String' and 'Boolean'

Agradezco si alguien me puede guiar.

[PabloTech]

Intenta hacer lo siguiente:

Código Delphi [-]
  var fechaArranque: TDate;
  ...
  fechaArranque := Date;
  ...
  if Trunc(Dmsip.TblSolicituDiarios.FieldByName('FECHA').AsDateTime)=fechaArranque then

Suerte y después cuenta cómo te fué...

[Alejandrina]

Gracias...
Solucione el problema de la siguiente manera:
if DmSip.TblSolicituDiarios.Locate('FECHA',vararrayof ([fechaArranque]), []) then

[DarkBlue]

muchas gracias amigo pablotech me ha resultado tu metodo infalible al principio no funcionaba por que mi constante de fecha era tdatetime y mis otras fechas eran date! gracias