Как узнать какой сегодня день недели?

[Рустам]

Всем Здрасьте, Уважаемые форумчане!!!
Мне необходимо сделать так, чтоб прога показывала какой сегодня день недели!!!
А еще лучше чтобы прога узнавала какое число будет, допустим, в следующую среду, а потом в эту дату выводила какое-нибудь сообщение!!!!

Помогите ПЛИZZZZ!!!

[vitalik007]

есть такая функция DayOfWeek

2.Ставь таймер и проверяй каждую минуту

[Сильванович Михаил]

DayOfWeek(NOW) - возвращает текущий день недели

[vitalik007]

dayofWeek(now)
возрвратит цифру 0-воскресенье 6-суббота

[Рустам]

А как узнать, какое число будет, допустим, в вследующую среду?

[necky]

Рустам, а где ты собираешся это использовать, вернее, какая у тебя задача?

[mutabor]

Узнаешь какой сегодня день, сегодня вторник, индекс 2.
Сначала умножаешь 7 * удаленность недели. Нужна следующая, значит 7*1, нужна среда, индекс среды 3, находишь разницу нужного дня с сегодняшним 3-2=1. Прибавляешь полученый результат 7*1+1. Итого 7*1+1=8, прибавляем результат к сегодняшнему числу 4+8=12. Следующая среда будет 12 число.

в случае перехода в другой месяц
n: byte; //результат вычислений
m: byte; //кол-во дней в тек. месяце
if n > m then n:=n-m;

[pu4koff]

Сообщение от Рустам

А как узнать, какое число будет, допустим, в вследующую среду?

что-то в этом роде:

var
  d: TDate;
begin
  d := Date;
  d := d - DayOfWeek(d) + 7 + 4;

[Рустам]

necky, мне нужно каждую среду, и через среду менять значение в (к примеру в реестре) в момент наступления следующей среды и. т.д...

[Рустам]

mutabor, pu4koff - направление понял, ЗА ШО ОГРОМНОЕ СПАСИБА ()