Fecha del sistema y DateTimePicker

[ojan69]

Yepa! Hola (por tercera vez ;-) ) . Bueno, debe de ser que mi delphi está un poco loco porque si le pongo

If DateTimePicker.Date = Date THEN

Resulta que cuando se cumple la condición NO Entra por el IF. Depurando me ha sale que lo que devuelve la función Date tiene una pinta como sigue: 768794856e-23

No sé, seguiré dandole vueltas al asunto. Muchas gracias maestros. Salud!

Iván

[marcoszorrilla]

Dado que la fecha y hora hagas lo que hagas se guardan juntas, y la parte entera es la fecha y la fraccionaria la hora, esto que sigue te funcionara sin problemas.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 if Int(DateTimePicker1.Date) = Date then
 showMessage('Fecha correcta')
 else
 showMessage('Fecha Incorrecta');
 
 end;

Un Saludo.