Me disculpo por el error, aca les pongo bien el codigo, no me habia dado cuenta de que se me borro la ultima parte:
Código Delphi
[-]
var
Proximafecha, UltimoDia, DiaActual:TdateTime;
hoy:integer;
dia, mes, anio: Word;
...
hoy:=DayOfTheWeek(Date); DecodeDate(Now, anio, mes, dia);
UltimoDia:=RecodeDate(Date, anio, mes, DaysInMonth(Now));
for Proximafecha:=Now to UltimoDia do
begin
if hoy=1 then begin
DM.DSET_agen_turFECHA.Value:=Now; end;
if hoy=2 then begin
ProximaFecha:=IncDay(Date,6);
DM.DSET_agen_turFECHA.Value:=Proximafecha;
end;
if hoy=3 then begin
ProximaFecha:=IncDay(Date,5);
DM.DSET_agen_turFECHA.Value:=ProximaFecha;
end;
if hoy=4 then begin
ProximaFecha:=IncDay(Date,4);
DM.DSET_agen_turFECHA.Value:=Proximafecha;
end;
if hoy=5 then begin
ProximaFecha:=IncDay(Date,3);
DM.DSET_agen_turFECHA.Value:=Proximafecha;
end;
if hoy=6 then begin
ProximaFecha:=IncDay(Date,2);
DM.DSET_agen_turFECHA.Value:=Proximafecha;
end;
if hoy=7 then begin
ProximaFecha:=IncDay(Date,1);
DM.DSET_agen_turFECHA.Value:=Proximafecha;
end;
end;
Gracias.