найти ближайшую среду в дате..

[andreyka1990]

Здравствуйте! Как сделать чтоб программа сама нашла ближайшую среду?

например сегодня 28.04.2012 число (суббота), программа выбила число в datetimepicker - 02.05.2012 (среда майская) ??

буду рад любому совету, можно с примером небольшим.

[Прик]

uses DateUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var 
  W : word;
begin
  W := DayOfWeek(Date);
  if W <= 4 then W := 4 - W
            else W := 11 - W;
  DateTimePicker1.Date := IncDay(Date, W);
end;

[denisbrain]

Сообщение от Прик

uses DateUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var 
  W : word;
begin
  W := DayOfWeek(Date);
  if W <= 4 then W := 4 - W
            else W := 11 - W;
  DateTimePicker1.Date := IncDay(Date, W);
end;

а если просто date+w без модуля DateUtils

[Serge_Bliznykov]

Прик, +1

Сообщение от denisbrain

а если просто date+w без модуля DateUtils

ну можно обойтись и без IncDay, заменив процедуру на

DateTimePicker1.Date := Date + W;

а чем Вам модуль DateUtils не угодил то?!

[andreyka1990]

Спасибо, ПРИК!