HOla, pongo el trozo de código, se trata de un programa que hace reservas y claro no se pueden hacer reservas de días pasados, ni con más de una semana de anticipación para eso hice una función para saber los dias pasados y otra para saber si la fecha es anterior. Hasta aquí todo muy bien, pero al final del código el TData.Date no hay forma de ponerle la fecha de hoy (al principio cuando el programa comienza sí), he probado con todo incluso he hecho una función para coger la fecha del sistema (que es una tonteria pero por probar). No sé que hacer al final la única opción que veo y poco elegante es poner en el botón de hacer reservas que si la fecha no es correcta obligue al usuario a moficarla manualmente (esta opción no me gusta nada).
Cita:
if (Diasdesde(DatetoStr(DtData.Date))<=0) and (Diaspasats(DtData.Date)<7) then
begin
Showmessage(DatetoStr(DiasDesde(DatetoStr((DtData.Date)))));
data(FormatDateTime('dddd',dtData.Date),FormatDateTime('mmmm',dtData.Date));
lbBselec.Caption:='';
stSalaplena.Visible:=False;
Llegeixdades;
sgSala.Enabled:=True;
ImPeli.Visible:=True;
Esborratot;
Cerca;
Salapeli;
lbBlliures.Caption:=InttoStr(Contar);
Salaplena;
{NOTA: no puc canviar la data a la data actual}No puedo canviar la fecha
DtData.Date:=DataSistema(Date);
end
else
{NOTA: Passa ho mateix, s'ha de clicar dues vegades quan surt el misatge)} tengo que clicar dos veces para salir
Begin
Showmessage('La data no es correcta'); La fecha no es correcta
DtData.Date:=DataSistema(Date);
end;
|
Para terminar agradecer vuestra ayuda, ha! y las notas que están aquí puestas no están en castellano (es como están en el programa) pero he puesto al lado lo que significa, espero no molestar a nadie con eso. Muchas gracias.