[Gudzik11]

Здравствуйте такой вопрос

Код:

 case DayOfWeek(Date) of
     2: day:='пн';
     3: day:='вт';
     4: day:='ср';
     5: day:='чт';
     6: day:='пт';
     7: day:='сб';
     1: day:='вс';
   end;
   Label11.Caption:=day;
   Label12.Caption:=?;
  end;

так вот Label11.Caption выводиться какой то день а в Label12.Caption мне нужно получить следующий день .
подскажите как это зделать ?

[angvelem]

Нескромный вопрос, сколько вам лет? Арифметику в школе уже изучали?

[Gudzik11]

я знаю звучит глупо

нужно DayOfWeek(Date)+1 но где ?

[angvelem]

Чтобы не городить огород, вынеси все дни недели в константный массив, тогда и вопрос решается гораздо легче.

[Gudzik11]

Код:

  day:= DayOfWeek(Date);
    Case dey of
     1: Caption:='вс';
     2: Caption:='пн';
     3: Caption:='вт';
     4: Caption:='ср';
     5: Caption:='чт';
     6: Caption:='пт';
     7: Caption:='сб
  end;
  
   Label11.day;
   Label12.day+1;
 end;
 

';

может как то так

а где можно поподробней почитать про константный массив

[angvelem]

Вот, если не напутал.

Код:

const
  aDay : array[0..6] of String = ('вс', 'пн', 'вт', 'ср', 'чт', 'пт', 'сб');
var
  I : Integer;
begin
  Label11.Caption := aDay[DayOfWeek(Date) - 1];;
  I := DayOfWeek(Date);
  if I = 7 then
    I := 0; 
  Label12.Caption := aDay[i];
end;

[Gudzik11]

спасибо
буду разбираться

[lmikle]

А вот так слабо:

Код:

function DayOfWeekStr(ADate : TDateTime) : String;
begin
  Case DayOfWeek(ADate) Of
     1: Result:='вс';
     2: Result:='пн';
     3: Result:='вт';
     4: Result:='ср';
     5: Result:='чт';
     6: Result:='пт';
     Else Result:='сб';
  End;
end;

...

Label1.Caption := DayOfWeekStr(Date);
Label2.Caption := DayOfWeekStr(Date+1);

[angvelem]

Нас на слабо не возьмёшь. И что у тебя вернётся в Label2 при Result:='сб'? Всегда суббота, а как же следующий за ним день?

[lmikle]

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

Нас на слабо не возьмёшь. И что у тебя вернётся в Label2 при Result:='сб'? Всегда суббота, а как же следующий за ним день?

Внимательно смотри код.
Он вернет 'вс', т.к. тут вопрос в том, какой параметр передается в функцию. Ну и неплохо бы понимать как устроен TDateTime и какой результат будет для Date()+1 (специально указал Date() со скобками - это встроенная функция).

[angvelem]

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

Внимательно смотри код...

Ух проглядел, ещё ведь несколько раз глянул и всё равно не обратил внимание, что Date это функция. Мораль - по ночам нужно спать.
А как он устроен я знаю.