pregunta de dtatepicker nueva

[ContraVeneno]

¿Es un mensaje de error? Si es así, ¿que dice?

Tal vez las fechas no te den iguales porque tiene variación en las horas, recuerda que el DTPicker comprueba desde el año hasta los milisegundos.

Tal vez utilizando la función formatdatetime.

Para capturar un error y poner el mensaje que tu quieras, puedes utilizar la cláusula:

Código Delphi [-]
Try
 //acción que generar error
Except On E:TipodeExcepción do
 //aquí tu mensaje
End

[anubis]

gracias, pense que en el tdatepicker cuando pones solo fecha no compara tambien las horas.
Probare otro metodo.

sobre el error, la verdad es que no se ocmo manejarlo, es decir
si es un evento change, al cambiar la fecha, me sale el aviso en ingles que la fecha es menor que....
si le pongo try
no se que va aqui, se me habia ocurrido poner
fechasalida.onchange pero nose que variable poner aqui.
gracias

[marcoszorrilla]

Por lo que veo estás utilizando la hora también mira este ejemplo en el que se trabaja solamente con la fecha.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatDateTime('dd/mm/yy',DateTimePicker1.date + 10));
end;

Un Saludo.

[anubis]

gracias marcos, era sencillo cuestion de aplicar la logica .

Pero me seguia sin funcionar he tenido que hacer esto:

Código Delphi [-]
procedure Tfhabitacion.fecharegistroChange(Sender: TObject);
var
fechahoy:tdate;
begin
fechahoy:=now;
  if fecharegistro.Date<=fechahoy then
    begin
      fecharegistro.date:=fechahoy;
    end;
  if fechasalida.date<=fecharegistro.date+1 then
    fechasalida.date:= fecharegistro.date+1;
diasestancia.caption:=inttostr(daysbetween(fechasalida.date,fecharegistro.date));
end;

porque sino no me lo realiza, si le bajo a la fecha de salida dias hasta llegar a ser igual que la de entrada no me hace el if.

gracias de nuevo

lo unico que no me queda claro es lo de exception

si en este caso pongo un mindate, y le bajo, me sale aviso de que la fecha es menor, pero no puedo controlarlo con el exception
en el formshow he puesto esto

Código Delphi [-]
begin
fechasalida.mindate:=fecharegistro.date+1;
TRY
fechasalida.OnChange:=fechasalidachange;
EXCEPT ON E: EXCEPTION DO
begin
SHOWMESSAGE('LA FECHA NO PUEDE SER IGUAL A LA FECHA DE ENTRADA');
fechasalida.date:=fecharegistro.date+1;
end;
END;

pero no me lo realiza.

alguna idea?

gracias