Problema con el TDate.

[Kreyser]

Hola.

No queda me queda muy claro el código, que indicas, de todas formas la lógica de lo que deseas hacer es algo tal que así??

if (Condicion1) and (Condicion2) then
begin
  Showmessage('Fecha OK!!');
  {NOTA: no puc canviar la data a la data actual}
  //		--> Pero la fecha es valida!!
  // luego no hay que...  DtData.Date:=DataSistema(Date);
end
else
begin
  Showmessage('Error');
  DtData.Date:=Date;
end;
end.

Has hecho la depuración paso a paso??, en que linea te salta el error??, que error??... la lógica de las condiciones es correcta??, and??, or??...

[alfredosg19]

Quiero decir que si comienzas un programa actualizando el DataTimePicker después no puedes actualizarlo otra vez, el código que tú tienes ya lo probé y tampoco me va. . ASí que no sé como hacer para cambiarlo. Gracias.

[marcoszorrilla]

El DateTimePicker lo puedes actualizar las veces que desees:

Aquí tienes un ejemplo, necesitas.
1 DateTimePicker
3 Botones.

Copia el códiigo y haz la prueba, fíjate que utilizo Now en vez de Date, esto es para que me actualice fecha y hora cuando pulse los botones 2 y 3 con el botón 1 visualizo la fecha y hora actuales para ver como cambia.

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  ShowMessage(FormatDateTime('',DateTimePicker1.date));
  end;
  
  procedure TForm1.Button2Click(Sender: TObject);
  begin
  DateTimePicker1.DateTime:=Now;
  end;
  
  procedure TForm1.Button3Click(Sender: TObject);
  begin
  DateTimePicker1.DateTime:=Now;
  end;

Un Saludo.

[rafita]

Hola Alfredosg19,

Solo quería decirte que te ocurre lo que a mí: te curras todo a mano, incluso funciones que ya existen. Tengo cientos de líneas de código sustituidas por una sola función que trae Delphi, y que descubrí tras largas horas de trabajo y buenos dolores de cabeza.

Para saber si la fecha introducida es anterior a la fecha actual o una semana posterior utiliza las funciones DaysSpan y CompareDate:

if CompareDate(FechaD.Date,Now)=-1 then
    ShowMessage('¡Aviso! Estas realizando una reserva en un día anterior a hoy');
 if Round(DaysSpan(Fecha1.Date,Now))<0 then 
    ShowMessage('Anterior a hoy');

Para poner la fecha del sistema simplemente utiliza la función NOW:

    DtData.Date:=Now;

También te sirve para la hora (actual)

DTFechaYHora.DateTime:=Now;
 DTSoloHora.Time:=Now;

Como dice Marcos, puedes cambiar el valor tantas veces como quieras. Suele ser lo habitual.

Puedes comprobar la validez de la fecha al salir del campo DTData. Yo lo hago de la siguiente forma:
Evito que el usuario introduzca una fecha a mano: en el evento OnKeyPress pongo una función con un

Key:=#0;

Capturo el repliege del calendario en el evento OnCloseUp.

var FHBuena : TDateTime;
 begin
 if (not TryStrToDate(DateToStr(FechaD.Date), FHBuena)) or
 		 (not TryStrToDate(DateToStr(FechaH.Date), FHBuena)) or
 		 (not TryStrToTime(HoraD.Text, FHBuena)) or
 		 (not TryStrToTime(HoraH.Text, FHBuena)) then
 		 begin
 		 ShowMessage('¡Error! Faltan datos (fecha u hora) para poder realizar la reserva');
 		   Exit;   // podría haberlas inicializado FechaD.Date:=NOW; ....
 		 end;

Por último, te recomiendo que le eches un vistazo a los componentes de las RXLib, sobre todo a uno llamado DateEdit.

Seguimos en contacto.