Código Delphi [-] var Fecha: TDate; begin Fecha := DateTimePicker1.Date; if DBFecha = Fecha then ShowMessage('Las fechas son iguales'); end;
var Fecha: TDate; begin Fecha := DateTimePicker1.Date; if DBFecha = Fecha then ShowMessage('Las fechas son iguales'); end;